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1.0 ESMOSS EXECUTIVE 


1 . 1 Int roduct i on 


ESMOSS is a specialized software system for the construction of geometric 
descriptive and discrete analytical models of engine parts, components and 
substructures which can be transferred to finite element analysis programs 
such as NASTRAN. The software achitecture of ESMOSS is designed in modular 
form with a central executive module through which the user controls and 
directs the development of the analytical model. Modules consist of a 
geometric shape generator, a library of discretization procedures, interfacing 
modules to join both geometric and discrete models, a deck generator to 
produce input for NASTRAN and a "recipe" processor which generates geometric 
models from parametric definitions. 


1.2 Program Execution 


ESMOSS can be executed both in interactive and batch modes. Interactive 
mode is considered to be the default mode and that mode will be assumed in the 
discussions in this document unless stated otherwise. 

The first question asked by ESMOSS is. 

BATCH OR INTERACTIVE? 

to which the user answers "I" or "B" . If the program is being run as a batch 
program, the user input is read from the batch input stream which must match 
the user interactions which would have resulted from an interactive run. If 
interactive mode is selected, input is obtained from the user's terminal. 

Next, the user is asked to input his terminal type and the plotting 
device from lists of supported terminals and plotting devices. Finally, the 
user is asked if a new menu file is to be built or a special menu file is to 
be used. In general, the answer to these question will be *'N" . More 
information about building menu files can be found in Section 2.1. 
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1.3 Menu Processing 


Once the user has answered the initial questions, 
command mode and the Master Menu will appear. 


the program enters 


MASTER MENU 


1 EXECUTE COMMAND FILE 

2 UTILITY COMMANDS 

3 GEOMETRY MODEL CONSTRUCTION 

4 DISCRETE MODEL CONSTRUCTION 


5 RECIPE ENGINE PARTS 

6 GENERATE ANALYSIS INPUT 

7 FILE HANDLER 

8 DONE 


While in command 
the prompt • 


mode the user will be asked to input menu commands 


by 


ENTER MENU COMMAND» 

r. v -d will either call another menu or cause execution of an 

ESMOSS OI "modu 1 e Once the user has entered a command that causes execution of 

one of the ESMOSS modules, that module may ask for input needed for execution. 

ESMOSS allows maximum flexibility in the format of the entered menu 

commands. Each menu item has an associated number which can be used to 
that item Additionally, the command can be typed in either its enti y 

£ firm which makes it unique fro. the other items For example^ 

in the menu above the item EXECUTE COMMAND FILE could be selected by any of 
the following 


1 

EXECUTE COMMAND FILE 
E C F 
EX 
E 


Multiple menu commands can be stacked on a single line separated by 

commas ?his feature is useful if the user wants to ^ A J \77electl* 
other than his current level and knows the menu items that need to be selected 
to get him there. Additionally. ESMOSS remembers how it got to the current 
level and allows the user to back up n levels by typing "-n'Y Some menus 
a mandatory END item that forces the user to select that item before backing 
out“f tiat y menu. This is to assure that buffers and files are terminated 
properly from one model to the next. 
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1.4 Utility Menu 


In addition to the items in the current menu, the user may select an item 
from the utility menu any time that ESMOSS is in command mode The utility 
menu contains the following items 

1 UTILITY COMMANDS - causes the Utility Menu to become the 

current menu. 

2 MENU REDISPLAY - causes the current menu to be redisplayed. 

3 HELP n - displays further information about the nth item in 

the current menu. If n is not specified, information 
will be displayed about all items in the current menu 

4 CHANGE SESSION PARAMETERS - allows modification of session 

parameters See Section 1.5 for a description of 
session parameters. 

5 PLOT MODEL - plots the current model on the plotting device 

that was specified by the user during initialization. 

6 CHANGE PLOT PARAMETERS - changes the current plot parameters 

See Section 1.9 for a description of the plot 
parameters . 

7 DONE - terminates the ESMOSS session. 


1.5 Session Parameters 


ESMOSS contains several processing options which are selectable from the 
Utility Menu. They allow the following. 

a) Command file execution - see Section 1.8. 

b) Echo File usage - see Section 1.8. 

c) Suppression of menus and user prompts - used to suppress 
screen output when executing a Command File. 
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1.6 File Management 


Once the user has selected a menu item that causes a module to be 
executed all files required by that module are accessed The user is 
prompted to input the name of each necessary file If a file of the require 

type is already accessed it is considered a default file and the user an 
specify that that file be used The requested files are accessed and added to 

the Logical Unit Table and are marked as the default files for those file 
types for subsequent module executions. 


1.7 File Manipulation 


In addition to the automatic accessing of files provided 
Manager, the user has the option of manipulating files himself 
Manipulator The File Manipulator, which is entered through the 
command FILE HANDLER, has the capability to access and deaccess 
as list the contents of the Logical Unit Table. 


by the 
via the 
Master 
files as 


File 
File 
Menu 
we 1 1 


The File Manipulator also maintains a record 
the ESMOSS File Directory. The File Manipulator 
to or delete files from this directory as well as 
The directory contains the file name as well as 
creator for each file. 


of ESMOSS created files on 
allows the user to add files 
list the directory contents 
file type, creation date and 


1.8 Input Processing 


As mentioned previously, ESMOSS input can come from several sources In 
addition to terminal input for interactive mode ESMOSS allows he user to 
provide his input from a command file. A command file is an ASCII file hi h 
contains one user input response per line. The command f . 1 e must contain a 
response to every ESMOSS prompt in the processing sequence^ f the user 
wishes a particular response to come from the terminal rather than from the 
command file, the line on the command file that contains that response must 
contain a "/’SWITCH" 

Command files are invoked by the command EXECUTE COMMAND FILE which is 
selectable from both the Master Menu and the Change Session Parameters utility 
menu. Command file execution is terminated by the character sequence / OFF 

on the file. 

Command files can be created off-line using a standard text editor or 
created as an echo file during an interactive session. The J^ 1 ! {! 

turned on via the command ECHO FILE ON and turned off by the command ECHO FILE 
OFF These commands are items in the Change Session Parameters utility menu 

Once the echo file is created it can be used to reproduce the ESMOSS session 
by using the created echo file as a command file. Since the echo file is an 
ASCII file it can be edited to modify the session. 
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19 Output Processing 


The ESMOSS Output Processor processes four types of output. 

1 . Menu Di spl ay 
2 User Prompts 

3. Error Messages 

4. Model Plots 


Menus and user prompts will be suppressed for batch mode and can be 
suppressed for interactive mode if desired (see Section 1.5) 

Two commands in the Utility Menu are used to control the plotting of 
geometric and discrete models. 

PLOT MODEL - plots the current model using the current plot 
parameters . 

CHANGE PLOT PARAMETERS - allows the user to set the parameters 
used for creating the model plot. 


The Plot Parameters Menu allows user control over the following 
parameters 

DEFAULT VALUES - resets all parameters to their original 
values 

DISPLAY MODE — incremental mode allows plots to be generated 
entity by entity as the models are being built 
Complete mode waits to plot until the model is 
complete or until a PLOT MODEL command is given 

INTENSITY - sets the intensity for devices with that option 

TITLE - assigns a one to sixty character title to the plot 

ROTATE - rotates the plot view about the x, y and z axes. 

COLOR - sets the color for devices with that option. 

WINDOW - sets the window maximum and minimum values as 

percentages along each axis. ESMOSS automatically 
scales the plot to fit the screen if AUTO SCALE 
is specified. 
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LABEL - allows the labeling of all points, curves, surfaces 
regions, nodes and elements or a subset of any of 
them 

VISIBILITY - allows the selective plotting of entities or 
subsets of entities 
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2 0 CREATING NEW MODULES 


2 . 1 Menu Creat l on 


The ESMOSS Menu is created from an ASCII input file which defines the 
menu structure and parameters When adding new menus to ESMOSS, each item 
either points to another menu which further subdivides the function or it 
specifies the execution of a module. Each menu on the file has the following 
format . 

Menu Number , Menu Count 
Menu Title 

Menu Command 1 

Action Code, Action Entry. Help Count, File Count 

Help Line 1 

Help line n 

File Type 1, File Mode 1 

Prompt Message 1 

File Type m. File Mode m 

Prompt Message m 
Menu Command 2 


Menu Command j 


Where : 


j = Menu Count 
n = Help Count 
m = File Count 

The parameters used in the above definition are defined as follows. 

Menu Number - the identification address for the menu (1-100). 

Menu Count - number of items in the menu (1—12). 

Menu Title - title that is displayed when the menu is 
selected ( 1-72 characters). 
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Menu Command - command that is displayed for the menu item (3 
of 1-12 characters) 

Action Code - action caused by selection of the item 
1 = Select another menu 

5 = Execute module 

7 = Execute module and end menu 

Action Entry - data needed for the particular Action Code. 

For Action Code =1 

l.N Select menu with Menu Number N 
For Action Code = 5 or 7 

N.M Execute module number N, submodule M 

Help Count - number of lines of Help information. 

File Count — number of files required by the module. 

Help Line - ASCII Help message line (1-72 characters). 

File Type - type of file required 

1 = Command input file 

2 = User echo file 

3 = Geometric definition file 

4 = Discrete definition file 

5 = Menu Directory input file 

6 = Menu Directory output file 

7 = Active Menu Directory 

8 = Command output file 

9 = File Directory file 

10 * Nastran data file 

11 = Nastran input file 

12 = Recipe input file 

13 = Finalization data file 

File Mode - I/O mode of the required file. 

1 = File is opened for input 

2 = File is opened for output 

3 = File is opened for input and output 

Prompt Message - prompt to user which requests the file name 

(1-72 characters). 

A listing of the current ESMOSS menu is given in Appendix A. 


words 
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2.2 Module Creation 


ESMOSS modules are called from subroutine EXMOD. Each module has an 
associated module number. The module numbers for the current ESMOSS modules 
are 

1 = Geometric Shape Generator 

2 = Discretization Procedures Library 

3 = Plot Parameters Library 

4 = Recipe Processor 

5 = Analysis Input Generator 

Any newly developed modules would be assigned a unique module number. The 
data passed to the module via the calling sequence is. 

Sub Module Number - further functional definition assigned by 
the module author. 

File Code List - list of file codes for files defined in the 
file requirements section of the menu. 
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3.0 GEOMETRIC SHAPE GENERATOR 


3 1 Introduction 


ESMOSS allows the user to construct geometric entities consisting or 
points curves. surfaces, and regions. All entities are represente 
internally as rational B-splines In constructing geometry, the user must 
name all entities following the ESMOSS convention. Point names consist of P 
pHs a numeric name from 1 to 999 (e.g. PI, P243. P14). Curve names consist 

of "C" plus a numeric name from 1 to 999 (e.g. C2, C69, c 8 61 )^ s4q aC %2io) S 

consist of "S" plus a numeric name from 1 to 999 (eg. SI. . 

Region names consist of "R" plus a numeric name from 1 to 200 (e.g. R1 . R30, 

R141 ) - 

After the GEOMETRY MODEL CONSTRUCTION option has been selected from the 

Master Menu, the options for construction will appear. The user must first 

define a geometry file to be used by ESMOSS (option 1) and the limits of the 
window for construction. He is then is free to proceed to construct points, 
curves, surfaces and regions or to combine two models together using the 
geometric interfacing option. The only permissible method of leaving this 

menu is by selecting the END option. This selection will deactivate the 

geometry file and return to the Master Menu. 

Once an entity construction menu is selected (e.g. Point Menu), a new 
menu will appear with the options available to construct that type of 

geometry. The user is free to choose any of the available methods of 

construction or to delete an entity. If for any reason the construction 

cannot be accomplished (necessary entities are not defined, parameters are ou 
of range or proper input is not entered), the command will not be executed and 
the prompt will return to the present menu. If a particular type of en i y 
menu is displayed and the user wishes to change to a differnt type of geometry 
construction, he enters a " -1" to return to the Geometry Construction Menu 
and then requests the desired menu. For example. if the Point Menu is 

current, and the user wishes to switch to a Curve Menu, he enters a - . and 

when the Geometry Model Construction menu appears, enters a 3 to select tne 

Curve Menu. 


3.2 Point Construction 


There are five methods available in ESMOSS to create points as well as 
the option to delete a point that has been previously defined. The first 
method of construction is the basic explicit definition of a pointy The user 

must input the point coordinates . which can either be rectangular (X .Y .Z> . 

cylindrical (0,R,Z), or spherical (©/>,$)■ Regardless of the type of inpu , 
the point values will be converted internally to rectangular form for 
processing and output. All angle values are entered in degrees. 
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The second method is to u£e a file containing the (X,Y,Z) coordinates of 
points. The file should be a sequential file containing the point coordinates 
in real variable format. The user will be asked where to start reading in the 
file (i.e how many points to skip), how many points to define, and the point 

names. For example, if the user wanted coordinates 6,7, and 8 in the file 

defined as P21 . P24 , and P30, he would enter "5" for the prompt "ENTER NUMBER 
OF POINTS TO SKIP IN THE POINT FILE »" , and for the prompt "ENTER NUMBER OF 
POINTS >>" he would type in a "3", because there will be three points defined 
ESMOSS will then ask for the three point names to correspond to the three 
coordinate values Each time a set of points is defined, the file marker will 
be reset at the top of file position. 

The third method of defining points is to use the parametric definition 
of a curve A B-spline curve in ESMOSS has an "S" direction associated with 
it. The S parameter that defines the curve ranges from 0 to 1 . with 0 being 

the start of the curve and 1 being the end point of the curve. All other 

points on the curve can be defined by inputting a number between 0 and 1 for 
the S parameter to define the appropriate point on the curve For example, an 
S parameter definition of 4 will result in a point being defined 4/10 of the 
way along the curve as it is traversed from the zero value or starting point 



The fourth way to define a point is the parametric surface. A B-spline 
surface ~in ESMOSS has an "S" and a "T" direction. Each parameter ranges from 
0 to 1, therefore, an S and T value of 0,0 would be one corner of the surface, 
and a value of 11 would be the opposite corner of the surface Any other 
values between 0 and 1 will result in interior points corresponding to that 
position on the surface. Negative S and T values or values greater than 1 
will be ignored. For example, an S and T value of .5 will result in a point 
being defined at the center of the surface. 
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The final way of defining a point is by the intersection of two curves 
The required input is two previously defined curves that intersect each other 
in a unique place. If a point near the intersection point is already defined, 
it can be used as a guide point to reduce CPU time in locating the 
intersection, however, this is not required 

An additional option in the point menu is the capability to delete a 
point that has been already defined and is no longer needed The only 
required input is the name of the point. 
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Point Construction - Basic Definition 


enter menu connand >> 

l 

BASIC DEFINITION <X,Y,Z> 
ENTER POINT NANE >> 

PI 

MAKE INVISIBLE (Y/N)* >> 

ENTER COORDINATE Tvp£ >> 
C °L**LIST CHOICES) 

L 

COORDINATE TYPES: 

•REC # OR RETURN 
•RECTANGULAR 
•CYL* •CYLINDRICAL 
*SPH* “SPHERICAL 

ENTER COORDINATE TYPE >> 
< *L* “LIST CHOICES) 


ENTER POINT <X,Y,Z) >> 

BOB 

ENTER NENU COHNAND >> 

1 

BASIC DEFINITION (X,Y,Z) 

ENTER POINT NANE >> 

P2 

RAKE INVISIBLE <Y/N)7 >> 

ENTER COORDINATE TYPE >> 

< # L* "LIST CHOICES) 

CYL P3 

ENTER POINT <R,T,Z) >> 

1 45 B 

ENTER NENU COMMAND >> 

I t 

BASIC DEFINITION <X,Y,Z) 

ENTER POINT NANE >> 

P3 

A AXE INVISIBLE (Y/N)'? >> 


ENTER COORDINATE TYPE >> 
<*f*LI$T CHOICES) 

SPH 

ENTER POINT <R,T,P> >> 
t 45 45 

ENTER NENU COMMAND >> 



POINT NENU 

1 BASIC DEFINITION (X # Y.Z) 3 PARARETRIC CURVE 5 TWO CURVE INTERSECTION 

Z POINT FILE 4 PARAMETRIC SURFACE 6 DELETE 
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Point Construction - Point File 


PTFIL.DATA 


enter mm 


» 


POINT PILE 

— POINT FILE REQUIRED — 

am* pile none » 

RCECJNT.OTFIL.DATO 
ENTER MURDER OF POINTS TO 
SKIP IN THE POINT FILE » 

ENTER MURDER OF POINTS » 

ENTER POINT NNflE >> 

PSO 

MAKE INVISI1LE <V/Nr» >> 


0 . 0.0 
• 5 . 1.1 
1 5 . 2.2 
2 . 0.0 
2 . 1.0 
3 . 2.1 


ENTER POINT RARE » 

PSI 

HAKE INVISIBLE <V/N Y* » 


ENTER POINT NA« » 

PS2 

RAKE INUIS1DLE <Y/NJ» » 


ENTER POINT NAHE >> 

PS3 „ 

HAKE INU1SIILE <V/Nr» » p$i 

ENTER POINT MANE >> 

PSA 

RAKE INVISIBLE <Y/NO >> 


ENTER POINT NANE » 

PSS 

RAKE INVISIBLE (Y/N>“» >> 

enter nehu CORRAND » 


PSO 


PSS 


PSA 


PS3 


•OINT MENU 

1 BASIC DEFINITION <X.Y.Z> 

2 POINT PILE 


3 PARAMETRIC CURVE 

4 PARAMETRIC SURFACE 


S TWO CURVE INTERSECTION 
S DELETE 


Point Construction - Parametric Curve 


ENTER NENU CONNAND >> 

3 

PARANETRIC CURVE 
ENTER POINT RARE >> 

P7R1 

NAKE INUISIIIE <V/N)7 >> 

ENTER REFERENCE CURVE >> 
025 

ENTER S PARANETER >> 

• 

ENTER NENU CONNAND >> 

3 

PARAftETRIC CURVE 
ENTER POINT NANE >> 

P7R2 

NAICE INVISIBLE (Y/N)? >> 

ENTER REFERENCE CURVE >> 
CSS 

ENTER S PARARETER >> 

1 

ENTER NENU CONNAND >> 

3 

PARANETRIC CURVE 
ENTER POINT NANE >> 

P7R3 

HAKE INVISIBLE <V/NV» >> 

ENTER REFERENCE CURVE >> 
C25 

ENTER $ PARANETER >> 

.75 

ENTER NENU CONNAND >> 

3 

paranetric curve 

ENTER POINT NANE >> 

P7R4 

NAKE INVISIBLE ( Y/N )? >> 

ENTER REFERENCE CURVE >> 
C25 

ENTER S PARANETER >> 

.3 

ENTER NENU CONNAND >> 


L, 



POINT NENU 

1 BASIC DEFINITION <X,Y,Z) 

2 POINT FILE 


3 PARANETRIC CURVE 

4 PARANETRIC SURFACE 


S TWO CURVE INTERSECTION 
S DELETE 
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Point Construction - Parametric Surface 


ENTER. MENU CONMANO >> 

PARAMETRIC SURFACE 
ENTER POINT KANE >> 

HAKE INVISIBLE IY/N>» >> 

ENTER REFERENCE SURFACE >> 

ENTER S,T PARAMETERS >> 

.25 .75 

ENTER MENU COMMAND >> 

PARAMETRIC SURFACE 
ENTER POINT NAME » 

PS02 

HAKE INVISIBLE (V/N) 1 * >> 
ENTER REFERENCE SURFACE >> 

Inter s.t parameters » 

.33 .33 

ENTER MENU COMMAND >> 

PARAMETRIC SURFACE 
ENTER POINT NAME >> 

HAKE INVISIBLE IY/M)? >> 

ENTER REFERENCE SURFACE >> 

ENTER S.T PARAMETERS >> 

1 .5 

ENTER MENU COMMAND >> 

4 

PARAMETRIC SURFACE 
ENTER POINT NAME >> 

P604 

MAKE INVISIBLE <V/N)7 >> 


ENTER REFERENCE SURFACE >> 

Inter s.t parameters >> 

.25 I 

ENTER MENU COMMANO >> 


1. 


P601 ! 

! 

SI j p M3 

PS 02 

I 

P604 I 



POINT MENU 

1 BASIC DEFINITION (X.Y.Z) 

2 POINT FILE 


3 PARAMETRIC CURVE 

4 PARAMETRIC SURFACE 


5 TUO CURVE INTERSECTION 

6 DELETE 
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Point Construction - Two Curve Intersection 


(PITCH ft£NU COM* AMD >> 

5 

TWO CU*K INTCDSCCTIOM 
CNTCH POINT NAME >> 

P1DI 

MU INVISIBLE (V'N)* >> 

CNTCH THE TWO CUHVCS >> 

Cl CD 

USE OIIDE POINT <V'N>T >> 
N 

(NTCH MENU COMMAND >> 



POINT MENU 

l i* S A£ DEFINITION <X # V # Z) 3 PADANCTDIC CUOVE S TWO CUOVC INTCNSECTION 

t POINT FILE 4 PAAAMETDIC SUN! ACC S DCLETE 
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3.3 Curve Construction 


There are eight methods available in ESMOSS to create curves plus the 
option to delete a curve that has been previously defined. The first method 
is the definition of a line This is the simplest form of a curve and 
consists of two endpoints connected using a linear fit. 

The second option is the definition of a circle. The user can define a 
circle in two ways - by specifying a center point and two points on the 
circumference or by specifying three points on the circumference If the 
center point option is selected, the three points used to define the circle 
must not be col linear. The user is also prompted with the question "A1L0W 
UNEQUAL RADII <Y/N>?" . If the user answers "NO" to this question, a check is 
performed to ensure that circumference points are equidistant from the center 
of the circle to within a tolerance of .25% of the radius. If the user allows 
unequal radii, then the first circumference point selected will be used to 
resolve any radius discrepencies . The circle is fitted using a 16 point 
interpol at 1 on 

The circular arc can be generated in the sane manner as the circle, 
except the only permissible way to define a semi-circle is by using the three 
points on the circumference option. If an obtuse arc is to be defined (angle 
greater than 90 degrees). the circumference option must also be used 
Defining an arc using a center point and two circumference points will always 
default to an acute angled arc. 

The fourth method of curve generation is using the intersection of two 
surfaces The surfaces that intersect each other must have been previously 
defined. Also required is the number of points to be produced on the curve of 
intersection and the number of B-splines to be produced (usually one) If the 
curve of intersection is not linear, the greater the number of points used to 
fit. the more closely the fit will be to the intersection of the two surfaces 

The point file method of curve generation works similarly to the method 
for defining points. A sequential file of point data is read and various 
points are selected by the user to construct curves. The user is asked for 
the number of points in the curves and the number of B-splines to fit the 
curve (this number is usually one). These points are then read from the file 
and used to fit a curve. Each time a curve is defined, the file pointer sits 
at the top of file position, therefore, to select points from within the file, 
the user must designate the number of points to skip over in the file to reach 
the data that is desired. For example, if point coordinates 3.4,5 and 6 in 
the file are required to fit a curve, then for the prompt "ENTER NUMBER OF 
POINTS TO SKIP IN THE POINT FILE »" he would inter "2". because he wishes to 
start at the third line of the file. For the prompt "ENTER THE NUMBER OF 
POINTS TO EVALUATE ALONG THE CURVE »" . he would enter "4". and for the prompt 
"ENTER THE NUMBER OF B-SPLINES REQUIRED TO FIT THE CURVE »" he would enter 
"1". ESMOSS then takes points 3,4,5 and 6 from the data file and fits a curve 
using those four control points. All point data files should be constructed 
with one point coordinate per line (i.e. one set of X,Y,Z values per 
1 ine) . 
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Another curve generation method is to fit a sequence of points The user 
must input the number of points in the curve and the number of B-splines to 
fit the curve (usually one) The point names are then input and a cubic fit 
is performed on the entered control points to construct a curve 

The seventh method is the merging of two curves The curves must be open 
and the end point of the first curve must meet the start of the second curve 
to within a tolerance of 1% of the length of the longest curve. The curves 
may be defined in any direction or in any order, but one endpoint must be 
tangent to another endpoint. Once the merge is completed, the ending point of 
the first curve will be at the same position as the starting point of the 
second curve. Below are the four possible cases for curve merger. 


1 2 


" 1 Bothr curves OK 





* 


1 




2. Reverse 1 st curve 



> 




3. Reverse 2 nd curve 


1 2 


> 


1 

4. Reverse both curves ^ 


#■ 


2 


* 


The final option is the definition of a parabola. A parabola 
defined by a vertex point and two endpoints or by two endpoints 
tangents to those endpoints If the tangent option is used, two 
directional vectors are required that converge to a vertex point. 


can be 
and two 

<X,Y,Z> 
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Curve Construction 


Line 


enter new coiwano » 

1 

line 

ENTER CURVE HMK >> 

pare invisible cv/hi* » 

ENTER THE a LINE END POINTS >> 
PI PE 

ENTER NCNU CONNAMO >> 




4 TWO SURFACE INTERSECTION 

5 POINT FILE 

E FIT POINT SEQUENCE 


CURVE NCNU 

1 LINE 
B CIRCLE 
3 CIRCULAR ARC 


? NIRCt TWO CURVES 
• PARABOLIC ARC 
9 DC LETT 


Curve Construction - Circle 


EHIU «KMU M W WB » 

2 

CIRCLE 

ENTER CURVE NANE >> 

C3R 

RARE INVISIBLE (V/»)» >> 

ENTER DEFINITION TYPE » 
(•CEN* •CENTER) 
('CtR*-CIRCUNF£REHC£> 

CEN 

ENTER CENTER POINT > ) 

PAR 

ENTER 2 POINTS ON CIRCLE » 
P« PA3 

ALLOW UNEQUAL RADII (Y'N>V » 
V 

ENTER HENU CONNAND » 

2 

CIRCLE 

ENTER CURVE NANE » 

C31 

HAKE INVISIBLE CY/TOT >> 

ENTER DEFINITION TYPE » 
(•CEN* -CENTER) 

( *C I R * -C IRCUNFERENCE ) 

CEN 

ENTER CENTER POINT > ) 

PAR 

ENTER 2 POINTS ON CIRCLE » 
PA2 PAS 

ALLOW UNEOUAL RADII <V'N)“» » 
N 

* RADII ARE NOT EQUAL 
R CONNAND NOT EXECUTED 
ENTER HENU CONNAND >> 



L 


curve mm 

1 LIME 

2 CIRCLE 

3 CIRCULAR MC 


4 TWO SURE ACC INTERSECTION 

5 POINT FILE 

i FIT POINT SEQUENCE 


? PERCE TWO CURVES 
• PARABOLIC ARC 
9 DELETE 
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Curve Construction - Circular Arc 


cniu nemj commm >> 

CIRCULAR ARC 
ENTER CURUC MARE » 

as 

RARE XNUISISLE <Y/NV* » 

CNTCR DEFINITION TVPC >> 

< # CCN* •CENTER > 

< *CIR" •CIRCUMFERENCE > 

CCN 

ENTER CENTER POINT > ) 

PAR 

ENTER THE 2 ARC END POINTS » 
PAR PA3 

ALLOU UNEQUAL RADII <V/N>? >> 
V 

ENTER NCNU CONNANO >> 


P43 


P«2 



PAR 



CURUC NCNU 

1 LINE 

2 CIRCLE 

3 CIRCULAR ARC 


A TWO SURFACE INTERSECTION 
5 POINT FILE 
C FIT POINT SEQUENCE 


? NERCE TWO CURUES 

8 PARASOL I C ARC 

9 DELETE 
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Curve Construction — Circular Arc 


win mm o om mm » 

3 

CIRCULAR ADC 
ENTER CUM NANE » 

CJT 

mi invisible <v/n»t >> 


ENTER DEFINITION TYPE >> 

( •COI* 'CENTER 1 

l •CIU* 'CIRCUNFERENCE » 

ENTER TMC 2 ARC ENO POINTS » 

P42 P43 v „ 

ENTER POINT ON ARC > > 

allow unequal radii <v/n>-» » 

v 

enter icnu connand » 



curve mm 


l 

a 

a 


LINE 
CIRCLE 
CIRCULAR ARC 


4 TWO SURFACE INTERSECTION 

5 POINT FILE 

8 FIT POINT SEQUENCE 


7 NERGE TWO CURVES 
t PARABOLIC ARC 
9 DELETE 


Curve Construction - Circular Arc 


jMtn mm coww » 

CIKUU* MC 

chick cukuc n me. » 

C3S 

PARC INVISIBLE <V/HV» » 


CHICK DEFINITION TYPC » 
I*CCH* •CCHTCR) 

< *CIR* 'CIRCUMFERENCE 1 
CIK 

CHICK THE 2 ARC CHO POINTS >> 
P41 P42 

CHICK POINT OH ARC > ) 

P43 

ALLOW UHCOUAL KAO I I <V^NJV >> 

r 

CHTCR HCNU CONHAHO >> 




CUKUC HCNU 


1 LINE 

2 CIRCLE 

3 CIRCULAR ARC 


« SURFACE INTERSECTION 

S POINT FILE 
« FIT POINT SEQUENCE 


7 PERCE TWO CURVES 

8 PARABOLIC ARC 

9 DELETE 
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Curve Construction - 


Two Surface Intersection 


» 

TWO MF«C£ INTERSECTION 

enter cum nahe » 

r 'M 

MC invisible iv / nr * » 

ENTER TIC 2 SURFACES » 

ENTO*TICNUH1j» >> 

EVALUATE *U»« THE CURVE » 

Inter the nunoer ofospliics 

REOUIREO TO FIT TIC CURVE >> 
1 ENTER NEW COHHAHD » 




curve mm 

% LIME 
t CIRCLE 
3 CIRCULAR ARC 


4 

5 

6 


JO SURFACE INTERSECTION 
DINT FILE 
IT POINT SEQUENCE 


7 HE ACE TWO CURVES 

8 PARASOL 1C ARC 

9 DELETE 
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Curve Const rue 1 1 on 


Point File 


PTFIL.DATA 


cure* mm conaand » 

•OINT FILE 

— POINT FILE REQUIRED — 

enter file name » 

*C£C JMT . PTF I L . ONTO 
ENTER CURVE NONE >> 

S20# 

RAKE INVISIBLE i V^N )T » 


0 , 0,0 
. 5 . 1,1 
1 . 5 . 2.2 
2 . 0.0 
2 , 1,0 
3 , 2.1 


ENTER NUHBER OF POINTS TO 
SKIP IN THE POINT FILE » 

• 

ENTER THE NUHBER OF POINTS TO 
EVALUATE ALONG THE CURVE >> 

3 

ENTER THE NUN ICR OF ISP LINES 
REQUIRED TO FIT THE CURVE >> 

1 

ENTER NENU COHH AN P >> 

$ 

POINT FILE 

— POINT FILE REQUIRED — 

— DEFAULT FILE EXISTS — t 
DEFAULT FILE IS AEECJHT. PTFIL.DATA 
JSC DEFAULT FILE (V/N)* >> 
f 

ENTER CURVE NAME >> 

IZ9X 

RAKE INVISIBLE (V/N)? >> 

ENTER NURBER OF POINTS TO 
SKIP IN THE POINT FILE >> 

3 

ENTER THE NUHBER OF POINTS TO 
EVALUATE ALONG THE CURVE » 

3 

ENTER THE NUHBER OF BSPLINES 
REQUIRED TO FIT THE CURVE » 

I 

ENTER NENU COHHAND >> 





2URUC NENU 


1 LINE 

2 CIRCLE 

3 CIRCULAR ARC 


4 TUO SURFACE INTERSECTION 

5 POINT FILE 

6 FIT POINT SEQUENCE 


? NERCE TUO CURVES 

8 PARABOLIC ARC 

9 DELETE 
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Curve Construction — Fit Point Sequence 


ENTER NENU COfWANO >> 


rn POINT SCQUCNCC 
enrol curve none >> 

ME INVISULE IV/Hir >» 


cure* the nunrer 

CUAU1ATC ALONE 


OF POINTS TO 
TMC CURVE ») 


ENTER THC HUN9ER Of »spu*es 

required to mt m curve >> 


enter points on curve »> 

PI P3 PA 

enter ncmj connano >> 



P2 



l IX 
circle 

CIRCULAR ARC 


4 TWO SURFACE INTERSECTION 
t POINT FILE 
• FIT POINT SEQUENCE 


7 KKE TWO CURVES 
R PARA OOIIC ARC 
9 DELETE 
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Curve Construction - Merge Two Curves 


e n r o l pcprj co wpw wp » 

7 

NER CE TUO CURVES 
ENTER CURVE IMflC » 
fS# 

HAKE INUISI1LE < V/N >7 >> 

ENTER THE 2 CURVES TO JOIN >> 
C7S C76 

ENTER HCNU CONN AND >> 




curve mm 


1 LINE 

2 CIRCLE 

3 CIRCULAR ARC 


4 TUO SURFACE INTERSECTION 

5 POINT FILE 

6 FIT POINT SEQUENCE 


7 PIERCE TUO CURVES 
1 PARAtOLIC ARC 
9 DELETE 



Curve Construction - Parabolic Arc 


ENTER RENO CONNAND » 

PARABOLIC ARC 
ENTER CURVE HARE » 

£££ 

RAKE INVISIBLE IY/N1? >> 

ENTER DEFINITION TYPE >> 

( ’TAN* "TANGENT 1 
( *UER* "VERTEX 1 

ENTER THE 2 ARC END POINTS » 

ENTER 1ST TANGENT <X.Y,Z> » 

ENTER 2ND TANGENT (X.Y.Z) >> 
l -I I 

ENTER AENU COIWAND >> 




CURVE NENU 


1 LINE 

2 CIRCLE 

3 CIRCULAR ARC 


4 TWO SURFACE INTERSECTION 7 NERGE TUO CURVES 

5 POINT FILE B PARAIOL1C ARC 

6 FIT POINT SEQUENCE 0 DELETE 
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Curve Construction 


Parabol i c Arc 


ENTER RCNU CONNAND >> 

• 

PARA80LIC ARC 
CMTCft CURVE NANC >> 

Cl# 

race invisiile >> 

ENTER DEFINITION WE >> 

< *TAN**TANCENT 1 
CV£R e -VERTEX) 

HER 

ENTER VERTEX POINT >> 

P3 

ENTER THE 2 ARC END POINTS >> 
Pi P8 

ENTER RCNU COTINAND >> 




CURVE RCNU 



3 CIRCULAR ARC 


4 TOO SURFACE INTERSECTION 

5 POINT MIE 

G FIT POINT SEQUENCE 


7 MERGE TWO CURVES 

8 PARAIOLIC ARC 

9 DC LETT 
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3.4 Surface Construction 


There are nine way* available to construct surfaces in ESMOSS plus the 
option to delete a surface that has been previously defined All surfaces 
consist of an "S" and a "T" direction with each of these parameters ranging 
from 0 to 1 A surface can be open in the S and T direction (eg a plane), 
closed in the S direction (eg a cylinder). or closed in the S and T 
direction (eg. a sphere) A direction is considered closed if traversing it 
from start to finish brings you back to the starting point. For example, 
following the circumference of a circular cylinder will bring you back to the 
position at which you started, but following the length of the cylinder ends 
at a different position A cylinder is then considered closed in the S 
direction, but open in the T direction. 



The first method of surface construction is to establish a surface by 
using a coordinate plane. The user must specify the fixed plane (X.Y. or 2). 
the value of that fixed plane and the bounds on the other two axis This will 
result in a four sided surface. 

The second method is a four point plane. The user inputs the four 
presiously defined corner points of the surface, which must be entered in a 
parallel manner (i.e. the two points on the top must be defined in the same 

direction as the two points on the base) If the four points are defined as 

one traverses the perimeter of the surface (clockwise or counterclockwise). a 
bow-tie type of surface will result. See the example for further details 
The four point method is also the easiest method to define a 3 sided surface 
or triangle. The user must still specify four endpoints, but the last 2 
points will be the same For example, if points Pi and P2 establish the base 

and P3 the top of the triangle, then the required four points as input would 

be PI. P2 , P3 and P3 . This combination will generate a 3 sided surface. 

The third method is the generation of a circular cylinder. There are two 

variations of this definition. The user can specify the center of the base 

and the top and give the length of the radius or he can input a point on the 
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circumference of the base and let the radius be computed. 

The fourth option is similiar to the third and generates a frustrum. To 
construct a frustrum the user defines a point at the center of the base and on 
the center of the top Two points are also required on the circumference one 
on the base and one on the top These four points are the minimum required to 
define the geometry 

A ruled surface is the fifth method of surface generation. It consists 
of two unique, open curves which have been previously defined in the same 
direction A linear fit is performed between the endpoints of the two curves 
to form a surface. If the two curves are defined in opposite directions, a 
bow tie effect will appear instead of the desired surface. 



CORRECT METHOD 
Both curves are defined in 
the same direction. The surface 
appears along the dotted lines. 


INCORRECT METHOD 

The curves are defined in opposite 
directions, thus a bow-tie surface will 
result, as shown above by the dotted 
1 ines . 


A cubic B-surface is the most flexible method available for defining 
surfaces since the user has complete control over the contour of both the S 
and T directions. A surface is fitted using a number of curves The user can 
specify up to 21 curves to generate the B-surface, however, all of them must 
have been previously defined Since each curve must be defined by a set of 
points, ESMOSS checks each curve to determine how many control points exist 
If one of the curves doesn’t match the others as far as the number of control 
points is concerned, ESMOSS will redefine each input curve by a sequence of 16 
points to use to construct the surface. This must be performed to enable 
ESMOSS to construct the B-surface. The original input curves will not be 

altered in any way. As in other methods of surface construction, the curves 
must all be defined in the same direction. 
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X 



Cl C2 C3 


X = Control Points 


NO CURVE RESTRUCTURING 
NECESSARY - All curves are defined 
with the same number of control 
points 



on the Defining Curves 


CURVE RESTRUCTURING IS REQUIRED TO FIT 
SURFACE - Curve 4 is defined with 4 
control points, curve 5 with 2. and 
curve 6 with 3 control points. All 
curves must be re— evaluated and refitted 
with a default of 16 control points 
The surface can then be constructed 


A surface can be trimmed or reduced by means of the subsurface P«tch 
option The user must declare a parent surface that is to be trimmed and the 
new surface dimension. To define the new patch, four corner S and T values 
must be given, which can range from 0 to 1 A corner value of 0.0 will force 
one corner of the patch to reside at the starting corner of the surface^ and a 
value of 11 will produce a point in the opposite corner. Values between 0 
and 1 will give surface points inside the present surface. The four corner 
values must be defined in a parallel manner, (i.e. the first two corner 
values must be defined in the same direction as the last two corner values) 
If the four values are defined in a clockwise or counterclockwise fashion, a 
bow-tie surface will result. 


Surfaces can also be defined from a data file of point coordinates in the 
same manner as points and curves. To allow greater flexibility in defining 
different types of surfaces, construction by curves will be simulated The 
user will be prompted for the number of points in each curve that will be used 
to construct the surface and the number of curves in the surface The number 
of B-splines in the direction of the curves and the number of cross-curve 
B-splines must be defined to produce the surface. Both of these numbers will 
usually be equal to the number of curves defined in the surface 
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The final method of surface generation is the surface of revolution 
Using this option. a surface is generated by revolving a predefined curve 
around the X. Y or 2 axis The user is asked to input the axis of revolution 
and the angle of revolution (0 - 360 degrees). If the angle is outside these 
limits, a default of 360 degrees will be substituted and a warning message 

printed All rotation angles are measured clockwise about the origin when 

looking at the origin from a point on the positive side of the axis being 

rotated For example, a rotation of 30 degrees about the Z axis should be 

interpreted as 30 degrees clockwise when looking at the origin from the 
positive end of the Z axis 
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Surface Construction 


Coordinate Plane 


enter NEMJ COHMMO » 

1 

COORDINATE PLANE 
ENTER SURFACE NAME » 

SIR! 

NAKE INUIS19LE IV/N>? » 

ENTER FIXED COORDINATE PLANE >1 
X 

ENTER FI«D COORDINATE MALUE > > 
1 

ENTER V NININUN AND NAXINUN » 
.5 2*S 

ENTER Z NININUN AND NAXINUN >> 

• 1.75 

ENTER NENU C O NNA N D >> 



SURFACE NENU 

1 COORDINATE PLANE 5 RULED SURFACE 9 SURFACE OF REVOLUTION 

2 FOUR POINT PLANE 6 CUBIC BSURFACE 10 DELETE 

3 CIRCULAR CYLINDER ? SUBSURFACE PATCH 

4 nUSTRM t POINT FILE 
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Surface Construction - Four Point Plane 



>> 


ENTER THE 4 CORNER POINTS » 
Nit Nit N12 Nt3 
EN t ER NENU CONNANO >> 



SURFACE NENU 


1 

t 

3 

4 


COORDINATE PLANE 
TOUR POINT PLANE 
CIRCULAR CYLINDER 


FDUSTRUH 


S 

fi 

7 

» 


RUUD SURFACE 
CUDIC DSURFACE 
SUDSURFACE PATCH 
POINT FILE 


9 SURFACE OF PEUOLUTION 
ID DELETE 
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Surface Construction - Four Point Plane 


ENTER I1CNU CONNAND >> 

a 

FOUR POINT PLANE 
ENTER SURFACE NAPE >> 

$2 

RAKE INVISIBLE (Y/N>? >> 

ENTER THE 4 CORNER POINTS >> 
P10 Pll P13 P12 
ENTER NENU CONNAND >> 


** WRONG M 

If points are defined in a clockwise 
or counterclockwise fashion as show 
below, a bow-tie surface will result. 
Points should be defined in a parallel 
order. (eg. Pio, Pll, Pia, pj3) 



r 

L X 


SURFACE MENU 

1 COORDINATE PLANE 

2 FOUR POINT PLANE 

3 CIRCULAR CYLINDER 

4 FRUSTRUfl 


5 RULED SURFACE 

6 CUBIC BSURFACE 

7 SUBSURFACE PATCH 

8 POINT FILE 


9 SURFACE OF REVOLUTION 

10 DELETE 
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Surface Construction - Circular Cylinder 


ENTER NEIHJ CONNAND >> 

CIRCULAR CVLINOER 
ENTER SURFACE WANE » 

S2S 

RAKE INVISIBLE CV'im » 

ENTER DEFINITION TYPE » 

1-R- -RADIUS VALUE 1 
(•P* -POINT ON BASE > 

R 

ENTER CYLINDER RADIUS >> 

ENTER THE 2 AXIS END POINTS >> 
P40 P41 

ENTER NENU CONNAND >> 




SURFACE NENU 

1 COORDINATE PLANE 
a FOUR POINT PLANE 

3 CIRCULAR CYLINDER 

4 FRUSTRUN 


S RULED SURFACE 
C CUBIC BSURFACE 
? SUBSURFACE PATCH 
S POINT FILE 


S SURFACE Of REVOLUTION 
10 DELETE 
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Surface Construction - Circular Cylinder 



CIRCULAR CYLINDER 
ENTER SURFACE NAME >> 

RACE INVISIBLE CV/NI? » 

ENTER D€F INITIOH TYPE >> 
<*R*-RADIU$ VALUE) 

C # P* -POINT ON »AS£ ) 

P 

ENTER POINT ON CYLINDER BASE >> 
P42 

ENTER TIC 2 AXIS END POINTS >> 
P40 P4I 

ENTER NCNU COPNAND >> 




SURFACE NCNU 

1 COORDINATE PLANE 

2 FOUR POINT PLANE 

3 CIRCULAR CYLINDER 

4 FRUSTRUN 


5 RULED SURFACE 

6 CUBIC BSURFACC 

7 SUBSURFACE PATCH 

8 POINT FILE 


9 SURFACE OF RESOLUTION 
1# DELETE 
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Surface Construction - Frustrum 


enter ncmj connano » 


FRUSTRUN 

ENTER SURFACE r, A f,E >) 

hake invisible < V/N V* 


» 


ENTER THE 2 AXIS END POINTS » 

ENTER 4 R0IHT on frustrun »ASE >> 

ENTER ROINT ON FRUSTRUN TOP » 
043 

ENTER NEHU COIWAND >> 





SURFACE RENU 


1 

t 

3 

4 


ORDINATE PLANE 
I UR POINT PLANE 
[RCULAR CVLINOER 
IUSTRUN 


S 

fi 

? 

s 


RUUD SURFACE 
CUBIC DSURFACE 
SUBSURFACE PATCH 
POtNT FILE 


9 SURFACE OF REVOLUTION 

10 DEUTE 
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Surface Construction - Ruled Surface 


enter nchu c om * i p >> 

y £uiCP SURFACE 
enter surface name >> 

S200 

RARE INUISIItX (V^WJ? >> 

ENTER THE 2 CURVES >> 
C300 C3P1 

ENTER NENU CONMHO » 




SURFACE NENU 

1 COORDINATE PLANE 
Z FOUR POINT PLANE 

3 CIRCULAR CYLINDER 

4 FRUSTRUN 


S RULED SURFACE 
« CUtIC (SURFACE 

7 SU8SURFACE PATCH 

8 POINT FILE 


9 SURFACE OF REVOLUTION 
18 DELETE 
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Surface Construction - Ruled Surface 


emu mm 


» 


«A XD SURFACE 

inter surface nane » 

92*1 

INVISIBLE CV/N>* >> 


INTER THE 2 CURVES » 
C3M C3DI 

ENTER MENU COWNA N P >> 


•• WRONG M 

If curves are defined in the opposite 
direction as shown below, a bow-tie surface 
will result. Curves should be defined in 
the same direction as on the previous page. 




SURFACE MENU 

| COORDINATE FLARE 
Z FOUR FOINT PLANE 

3 CIRCULAR CYLINDER 

4 FRUSTRUN 


S RULED SURFACE 
S CUBIC BSURFACC 
7 SUBSURFACE PATCH 
B POINT FILE 


9 SURFACE OF REVOLUTION 
1# DELETE 
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Surface Construction - Cubic Bsurface 


s 

MIC 


S21C 


» 


» 

DwisxKf <v/m? » 

or cumcs to rrr » 

eta ca 70 rxT » 

onw • OF CURVE OSPLINES 
«»W • OF CROSS-CURVE OSPLINES » 

» 




1 

a 

a 

4 


^hdinrite 

FOUN POINT I 

cmculnn cylinder 


s 

0 

7 

a 


MULCO SURFACE 
CUOIC BSURFACE 

SSS’RS'*''" 


to DELETE 


*CE OF HEUOUfTION 
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Surface Construction - Subsurface Patch 


ENTER 


» 


race patch 

ENTER SURFACE NMC » 

575 

PMCC INVISIBLE < V^fi)7 » 

CNTCK THE PARENT SURFACE » 

sss 

ENTER 4 FAIRS OF CORKER VALUES 
.1 .1 
.65 .2 
.IS .5 
.6 .45 

CKTCR RCHU CO WI W I » 

7 

SUBSURFACE PATCH 
ENTER SURFACE NAME » 

RAKE INVISIBLE <V/N>7 » 

ENTER TK PARENT SURFACE » 


ENTER 4 PAIRS OF CORNER VALUES 

.7 .15 

.9 .95 

.95 .9 

.95 .99 

ENTER AEMJ CORRAND >> 




ACE MENU 


1 COORDINATE PLANE 
8 FOUR POINT PLANE 

3 CIRCULAR CYLINDER 

4 


5 RULED SURFACE 
5 CUD 1C DSURFACC 
7 SUD SURF ACE PATCH 
9 POINT FILE 


9 SURFACE OF REVOLUTION 

10 DELETE 


46 


Surface Construction - Point File 


PTFIL.DATA 


^enter n cm co wm nd » 
point file 


'* rite required — 

■* TILE EXISTS —l 

5sE^£ r JJ«£ £ r AC 5 CJHT •"EH.. DATA 

USE KFMUT rite (V/H)? » 


«TER SURFACE IMRE » 

INUISISLE iYstO* » 


CH 2?.JV* C * ^ WWTS TO 
0 SKIP III THE POINT FILE » 

EW If?. r* "WWW OF 
j WWTS IN EACH CURVE >> 


CUTER THE NUNSER OF 
g CWWCS IN THE SURFACE 


ENTER THE NUNDER OF 

Ct*UE DIRECTION (SPLINES 


ENTER THE NUNDER OF 
g C^OSS-CWN* (SPLINES » 


» 


ENTER menu connand >> 


0 . 0.0 
. 5 . 1.1 
1 . 5 . 2. 2 
2 . 0.0 
2 . 1.0 
3 . 2.1 




SURFACE MENU 


1 

« 

3 

4 


COORDINATE PLANE 
FOUR POINT PLANE 
CIRCULAR CYLINDER 


S RULED SURFACE 
0 CUDIC (SURFACE 
? SUDSURFACE PATCH 
■ POINT FILE 


# SURFACE OF REVOLUTION 
I# DELETE 
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Surface Construction 


Surface of Revolution 


C M Id MENU co wia u p » 

9 

surface or revolution 

CfVTCR SURFACE NMC >> 

572 

MKl INUS StitC <V/NV» » 

enter axis or revolution oc'y/zj » 

X 

ENTER CURVE TO SC REVOLVED » 

ENTER ANCLE OT REVOLUTION » 

so 

ENTER MENU C O WHA N D » 




SUIT ACC MENU 

1 COORD I HATE PLANE 

2 rOUR ROIKT PLANE 

3 CIRCULAR CYLINDER 

4 PRUSTRUR 


S RULED SURFACE 
€ CUBIC BSURFACE 
7 SUBSURFACE PATCH 
B POINT FILE 


9 SURFACE OF REVOLUTION 

10 DELETE 
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Surface Construction 


Surface of Revolution 


cntw mm co tmm m » 

7 

surface or revolution 

ENTER SURFACE NOTE >> 

S71 

RARE INUlSIttX <Yxtm » 

ENTER AXIS OF REVOLUTION (X/Y/Z) >> 
V 

ENTER CURVE TO tC REVOLVED >> 

(nf 

CUTER ANCLE of REVOLUTION >> 

45 

ENTER MENU CONNAHD >> 




SURFACE NEHU 

1 COORDINATE PLANE 

2 FOUR POINT PLANE 

3 CIRCULAR CYLINDER 

4 FRUSTRUN 


5 RULED SURFACE 

6 CUBIC BSURFACE 

f SUBSURFACE PATCH 
S POINT FILE 


9 SURFACE OF REVOLUTION 

10 DELETE 
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Surface Construction - Surface of Revolution 


ona now com m a » 

9 

SURFACE OF REVOLUTION 
ENTER SURFACE NANE >> 

570 

MAKE INVISIBLE (V/’NIT » 

ENTER AXIS OF REVOLUTION (X/V/Z) >> 
ENTER CURVE TO DC REVOLTED >> 


INTER ANGLE OF REVOLUTION » 
ENTER NCNU C09VMN0 » 



SURFACE MENU 

1 COORDINATE PLANE 

2 FOUR POINT PLANE 
2 CIRCULAR CYLINDER 
4 FRUSTRUN 


5 RULED SURFACE 

6 CUSIC f SURF ACC 

7 SUBSURFACE PATCH 
t POINT FILE 


9 SURFACE OF REVOLUTION 

10 DELETE 


T 



3.5 Region Construction 


A region is a relational description of points, curves, and surfaces, 
which ESMOSS uses as input to the discretization processor. There are three 
basic types of regions two-d 1 mens 1 ona 1/4 sided, two-d 1 mens 1 ona 1/3 sided and 
three— d mens 1 ona 1 ,/6 sided To define a region, the user must define the 
surface<s) that comprise the region, the curves that comprise the surfaces, 
and the points that define the curves The surfaces are the faces of the 
region, the curves the edges, and the points the vertices. All of these 
entities must be defined and fit together to form a region. When ESMOSS 
requires face surfaces, edge curves, and vertex points as input, the necessary 
entities can be entered in any order. ESMOSS will check each entity. to match 
it with the necessary other entities, thereby eliminating the need for the 
user to be concerned about ordering the sequence of input. However, all 
faces, edges, and vertices must match each other within tolerance. 

An additional option that is available in this menu is the delete command 
which will remove a region which has been previously defined 
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Region Construction - Two-Dimensional/Three-Sided 


orm mi co w w » 

9 

TUO-0 THREE SIDED 
ENTER REGION mm » 

n 

HAKE INVISIBLE (Y/HP >> 

ENTER 1 FACE SURFACES >> 
51 

ENTER 3 EDCC CURVES » 

Cl C2 C3 

ENTER 3 VERTEX POINTS >> 
PI P2 P3 

ENTER NENU COHRAND >> 



L 


REGION NENU 

1 TMAEE-D SIX SIDED 

2 TUO-D THREE SIDED 


3 TUO-D FOUR SIDED 

4 DELETE 


Region Construction - Two-Dimens 1 onal /Four-S ided 


i m p icni ca mt tn » 

i 

TUO-D FOUR SIOCD 

enter region mm » 

*2 

W« INVISIBLE <V/N1? » 

ENTER t FACE SURFACES » 
SI 

ENTER 4 EDGE CURVES » 

Ct C2 C3 C4 

ENTER 4 VERTEX POINTS » 
PI PZ P3 P4 
ENTER RENU CONNANO » 


P3 


C4 


fel 



REGION RENU 

1 TMKE>D SIX SIDED 
« TUO-D TMIEC SIDED 


3 TUO-D FOUR SIDED 

4 DELETE 


3.6 Geometry Data File 


The Geometry Data File that is generated by ESMOSS is a sequent <a) file 
that can be examined and modified by the user. The format of the file is as 
follows The first line contains the X,Y,Z minimum values and the second line 
the X.Y.Z maximum values for the plot boundaries on the screen The rest of 
the file contains all of the points, curves, surfaces and regions that have 
been defined All of the points are listed in numerical order, followed by 
curves, surfaces and regions. 

• 

Each entity is comprised of a header record and is followed by the 
<X,Y,Z> control points that define the entity. Each header record -contains 
eight pieces of data. The first item determines the type of entity, a "1" 
denotes a point, ”2” a curve, "3" a surface, and a ”10” designates a region. 
The second item is the numeric part of the label <i a the entity number). 
Therefore, the first two items replace the name of the entity as it was 
defined in ESMOSS (e g F4 becomes a '‘1 4" in the data file, C241 becomes ‘*2 
241”, S 140 becomes ”3 140” , and R36 becomes ”10 36”. The third item is the 
subtype of the entity The nine different types of subtypes are as follows 


0 - point 

1 - open curve 

2 - closed curve 

3 - S and T open surface 

4 - S closed, T open surface 

5 - S open, T closed surface 

6 - S and T closed surface 

7 - 3-D 6 sided region 

8 - 2-D 3 sided region 

9 - 2-D 4 sided region 


The fourth item is the number of dimensions that the entity can have, 
since all entities are 3-D geometry, this number will always be 3. 

The last four items in the header record are S and T parameters for 
points, curves and surfaces. The first two represent the S and T input 
parameters to the B-spline fitting routines, and the last two are the S and T 
output parameters from the fitting routines. The S value always contains the 
number of control points that define the S contour, and the T value the number 
of control points that define the T contour. A point will always have four 
zeros since it has no S or T direction. A curve will always have a zero for 
the value of the T parameter since it has no T direction A surface will have 
the S and T values that were assigned to it by ESMOSS. The S and T input 
values should always by equal to the S and T ouput values. 

Regions have a different interpretation for the last four items in the 
header record. Since a region is comprised of point, curve and surface names 
only, there are no S and T values. Instead, the four numbers contain the 
following information about the region. the total number of names needed to 
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define the region, the number of surfaces in the region, the number of curves, 
and finally the number of points in the region. In the example on the 
following page, the last entity contains the header record 

10 1 9 3 41 1 4 4. 

The 10 identifies it as a region, the 1 as the first region (therefore, 
its name in ESMOSS was defined as R1 ) , the 9 designates it as subtype 9, or a 
2— D 4 sided region, the 3 means it contains 3-D information, the 41 means it 
has 41 pieces of data following the header to define the region, the 1 means 
it contains 1 surface, the 4, 4 curves, and the final 4 means it contains 4 
points . 

The information below the header describes how the region fits together. 
First, all surfaces are described, then curves and points. The first item of 
each line designates the entity to be related. For example, SI is defined by 
four curves, the names of which follow (e.g. C4 ,C2 ,C1 ,C3) . Since there is 
only 1 surface in this region, the curves are defined next. The four curves 
are defined as follows the name of the curve (e.g. Cl), the endpoints of 
the curve (e.g PI. P2), and the surface on which they border (eg. S1.S2) 
The last items to be related are points. They are defined by name (eg PI), 
and the curves that intersect to form the vertex point (e.g C1.C4). 

Finally, a ”99” in the entity type position followed by 7 zeros is the 
end of file marker 
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Geometry Data File Example 


DATA. FILE 
9.9 

(.S«N(MWEi«l 

... 1 

1 2 

9.199999999E+91 
i 3 

9.199999999E>91 

9.9 ‘ 

... 2 

9.199999999091 
* 2 2 

9. 199999999E+91 
9. 199999999E+91 
3 3 

9. 199999999E+91 
9.9 

9.9 2 

0.6 

9.9 3 1 

9. 199999999E+91 

0.0 

0.109000000E+01 
10 1 


SI 

C4 

C2 

Cl 

PI 

P 2 

C2 

P2 

P3 

C3 

P3 

P4 

C4 

PI 

P4 

PI 

Cl 

C4 

P2 

Cl 

02 

P3 

C2 

C3 

P4 

C3 

C4 


99 



0*0 0 

0 «. 600000000E+01 0 
0 3 

0.0 0 

0 3 

0.0 0 

0 3 

0* 100000000E+01 0 

0 3 
0*100600000E+01 0 

1 3 
0.0 0 
0.0 0 

1 3 

0.0 0 
0.100000000 E +01 0 
1 3 

0.100000000E+01 0 
0.100000000E+91 0 
1 3 

0.0 0 
0.1 00000000E+01 0 
3 3 

0.0 0 
0.0 0 
0.100000000E+01 0 
0.100000000001 0 
9 3 

Cl C3 
SI 
SI 
SI 
SI 


500000000E+01 
0 0 

0 0 

0 0 

0 0 

2 0 


2 

2 

41 
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Model Created from Geometry Data File 


ENTER NENU CONNAND >> 

1 

DEFINE CEONETRV FILE 
— GCONETRY FILE REQUIRED — 
ENTER FILE NANE » 

ACCCJHT. DATA. FILE 
ENTER NENU CONNAND >> 



QEONETRV NO DEL CONSTRUCTION NENU 

1 DEFINE CEONETRY FILE 
D FOINT 


4 

5 
S 


SURFACE 

REGIONS 

INTERFACE GEONETRIC NODE IS 


? END 
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3.7 Geometric Model Interfacing 


The option to interface geometric models allows the user to take two 
models that are stored in two separate data files and combine them into one 
model stored in one data file Since the second model might not be 
constructed to fit the first model exactly, the user has the ability to rotate 
and translate the second model 

To interface two models from the Master Menu, select '*3" to enter the 
Geometric Construction Menu and then a ”1" to define the geometry file This 
step defines the first model to be combined, but can be skipped if the user is 
already in the geometry menu and has constructed geometry The option 
INTERFACE GEOMETRIC MODELS can now be selected and the appropriate questions 
will be asked to integrate the two models. 

When the user selects the interface option, there must be a geometry file 
opened and active. ESMOSS will ask for the name of the second file and an 
output file to store the new model The first and second file names can be 
the same if a model is to be copied or duplicated, but the output file name 
must be a unique name or the first model data will be destroyed 

After both files have been successfully accessed. the screen and menu 
will be refreshed and several questions will be asked. Because there is the 
possibility that each model may have entities with the same name, the entities 
from the second model must be renamed. The user will give a starting point 
for ESMOSS to start renaming each type of entity points, curves, surfaces, 
and regions. For example, if model one has a point named P10, and model two 
contains the same name, this problem must be resolved. The user is prompted 
with the following: 


EACH OF THE ENTITIES FROM THE 2ND MODEL 
WILL BE RENAMED ACCORDING TO THE 
STARTING VALUE SUPPLIED BY THE USER. 

ALL VALUES PROCEED SEQUETI ALLY 
FROM THAT POINT — 

WHAT IS THE STARTING VALUE 
FOR POINTS (1 - 999) 

WHAT IS THE STARTING VALUE 
FOR CURVES (1 - 999) 

WHAT IS THE STARTING VALUE 
FOR SURFACES (1-250) 

WHAT IS THE STARTING VALUE 
FOR REGIONS ( 1 - 200) 

For each of the above four questions, a value must be entered within the 
range of the numbers in parenthesis The names of the first model always 
remains the same, only the second model names are restructured. If a new name 
value for the second model overlaps a name for the first model, the first 


59 



model name will remain, and 
example, if the following 
value of 50 is given for the 
generated as below. 


the next available name will be used For 
point names exist for both models and a starting 
second model, then the new values will be 


Model 1 


Model 2: 


PI P3 P10 P52 P65 


PI P8 P17 P64 P675 


Combined Model . 


PI P3 P10 P50 P51 P52 P53 P54 P55 P65 

Points from model 2 are mapped as follows: 

p i > P50 

P8 > P51 

P17 > P53 

P64 > P54 

P675 > P55 


Since P52 already exists from model 1. this point name is skipped, and 
the next available name is chosen, (i.e. P53) . 

The second model is now loaded into ESMOSS and prompts will be displayed 
for rotation and translation values to move the second model into its desired 
place. All rotation angle values should be in degrees, and the rotations are 
computed in the following order rotation about X axis, Y axis, and then the 
Z axis All rotation angles are measured clockwise about the origin when 
looking at the origin from a point on the axis. 
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Plot of Model A 


ENTER NENU COMMAND >> 



CEOfICTRV NOBEL CONSTRUCTION NENU 

1 DEFINE CEONETRV FILE 

2 POINT 

3 CURVE 



4 SURFACE 

5 REGIONS 

S INTERFACE CEONETRIC NOBELS 


? END 



Plot of Model B 


ENTER NEMU COMMAND )> 



GEOMETRY MODEL CONSTRUCTION MENU 

I DEFINE GEOMETRY FILE 
a POINT 
3 CURVE 


4 SURFACE 

5 REGIONS 

6 INTERFACE GEOMETRIC MODELS 


Model A Read in and Plotted 


enter nenu corrahd >> 

t 

define georetry file 
" GEORETRY file required — 
ENTER FILE NARE >> 
AEECJHT.DATA.FUEC 
^ENTER RENU CORRAND >> 

INTERFACE GEORETRIC RODELS 

GEOHETRy FILE REQUIRED -- 
ENTER FILE NARE >> 

AEECJMT.DAT A. FI LED 
— DEFINE GEORETRY OUTPUT FILE — 
ENTER FILE NARE >> 

AEECJHT . DATA . OUTF 9 





CEORETRV ROOEL CONSTRUCTION HEHU 


1 DEFINE CEORETRV FILE 

2 POINT 

3 CURUE 


4 SURFACE 

5 REGIONS 

* INTERFACE GEORETRIC HOOELS 


7 ENO 
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Model B is read in and plotted on 
top of Model A. The plotting 
boundaries are the same ones used 
for Model A. New boundaries are 
then input by the user and the 
rotated, translated models are 
then plotted after the screen 
is ref reshed . 


EACH OF THE ENTITIES THE 2ND NODEL 

URL IE RENARED ACCORDING TO THE 
STARTING VALUE SUPPLIED ST THE USER. 

AU VALUES PROCEED SEQUENTIALLY 
FROR THAT POINT — 

WHAT IS THE STARTING VALUE 
FOR POINTS (1-998) 

Shat is the starting value 

FOR CURVES < 1-999) 

WHAT IS THE STARTING VALUE 
FOR SURFACES < 1-250 ) 

WHAT IS THE STARTING VALUE 
FOR REGIONS! 1-50 > 

INPUT THE X,Y,Z ROTATION VALUES 
TO INTERFACE THE 2ND NODEL (X.V.Z) 

INPUT THE X.Y.Z TRANSLATION VALUES 
TO INTERFACE $HE 2ND NODEL < X.V.Z) 

ENTER THE NODEL NINIRUH BOUNDSCX.V.Z > >> 

ENTER THE RODEL NAXIRUN lOUNDSCX, Y.Z) >> 

3 3 3 





6E0HETRV NODEL CONSTRUCTION RENU 

1 DEFINE GEORETRV FILE 

2 POINT 

3 CURVE 


4 SURFACE 

I INTERFACE GEORETRIC NO DELS 


7 END 
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Model A, a cube has been combined 
with Model B, a f rust rum. 

Using the rotations and translations 1 
from the previous page, the original 
position of the frustrum was altered 
so that it now fits inside the cube. 


CUTER PC HU CONNANO >> 




CEOflETRY NO DC l CONSTRUCTION RCNU 

1 DEFINE CCOnETRV FILE 

2 POINT 

3 CURVE 


4 SURFACE 

5 REGIONS 

6 INTERFACE CEOnCTRIC NO DELS 


7 END 
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Data File for Model A 


DATA.FILEC 

0*0 

o'.3O0ooooooe*oi 

1 t 

0 . 1000000006*01 
1 2 

0.2000000006*01 
i 3 

0.2000000006*01 
1 4 

o. iooooooooe+oi 

1 5 
0. 1000000006*01 

t 6 

0.20OOO0OO0E*01 
t 7 

0.2000000006*01 
1 8 

0.1000000006*01 

2 1 
0.1000000006*91 
0.2000000006*01 

2 2 

0.2000900006*01 
9.2000000006*01 
2 3 

0.2000000006*01 
0.1000000006*01 
2 4 

0.1090000006*01 
0. 1000000906*01 
2 5 

0.1000009006*01 
0.2000000006*01 
2 6 

0.2000000006*01 
0.2000000006+01 
2 7 

0 . 2000000006*01 
0 . 1009000006*01 
2 8 

0.1000000006*01 
0. 10000OOO0E+O1 

2 9 
0 . 1000000006*01 
0 . 1000000006*01 

2 10 

0.2000000006*01 
0.2000000906*01 
2 11 

0.2090000996*01 
9.2090009006*01 
2 12 

0 . 100009000E*01 
0.1009000906*91 

3 1 
0. 1000090006*01 


9*® 

0.3900000006*91 
0 3 

0.0 

0 3 

0.0 

0 3 

0.1000000006*01 
0 3 

0.1000000006*01 
0 3 

0.0 

0 3 

0.0 

0 3 

0.1000000006*91 

0 3 
0.1000000006*01 

1 3 

0.0 

0.0 

1 3 

d • 0 

0*. 1000009006*01 
1 3 

0 . 100000000E*01 
0.1000000006*01 
1 3 

0. 10O0000O9E*01 

0.0 

1 3 

0.0 

0.0 t 

0 0 

0.1000000006*01 
1 3 

0.1000000096*01 
0.1000000006*01 
1 3 

0. 100OOOOO0E+O1 

1 

e.0 

0.0 

i 3 

0.0 

0.0 

1 3 

0.100400900C+01 
0.100000099E+91 
l 3 

0 . 100000000E+01 
0 • 100000000E *91 
3 3 

0.0 


0.0 

0. 30000000® E >01 
0 0 

0-0 

0 0 

0.0 

0 0 

0.0 

0 0 

0.0 

0 0 

0.100000000E+01 
0 0 

0. 100000000E+01 
0 0 

0.100000000E401 
0 0 

0. 100000000E+91 
2 0 

0.0 

0.0 

2 0 

0.0 

0.0 

2 0 

0.0 

0.0 

2 0 

0.0 

0.0 

2 0 

0 • 100000000E+01 
0. 100000000E+01 
2 0 

0 • 100000000E+01 
0.100000000E«01 
2 0 

0.100000000E+91 
0 . 100000000E 4 ® 1 
2 0 

0 • 1 00000000E +01 
0. 100000000E+01 
2 ® 

0.0 

0.100000000E+01 
2 0 

9.0 

0*1 00000000E ♦O 1 
2 0 

9.0 

0. 10O000000E+01 
2 0 

0.0 

0.100000000E401 

2 2 

0.0 


0 

0 

0 

0 

0 

0 

0 

0 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

2 
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0.2000000002*01 
0.1000000002*01 
0.200000000s *01 
3 2 

e.im00o«eE*«i 
0.20000 000 0E*01 
0 . 100000000E *0 J 
0.200000000E*01 
3 3 

0.100000O00E*01 
0.200000000E+01 
0.100000000E+01 
0 . 200000000E + 01 
3 4 

O.200000000E+01 
0.200000000E*01 
0 . 200000000E + 01 
0 . 200000000E *01 
3 5 

0.200000000E+01 
0.10000O000E*01 
0.200000000E+01 
0.10000OO00E+01 
3 6 

0.1000000O0E*01 
0 . 1 00000000E + 01 
0 . 100000000E+01 
0. 1000000002+01 


0.0 

0 . 1000000002*01 
0. 100000000E +01 
3 3 

0.0 

0.0 

O.1O00OO00OE+O1 
0. 100000000E+01 
3 3 

0.0 

0.0 

0.0 

0.0 

3 3 

0.0 

0 . 1000000002*01 

0.0 

0 . 1000000002*01 
3 3 

0. J00000000E+01 
0.1000000002*01 
0. 100000000E+01 
0. 100000000E+01 
3 3 

0.0 

0. 1000000002*01 

0.0 



ie 

1 


7 

SI 

C4 

C2 

01 

C3 

$2 

C8 

C6 

C5 

C7 

S3 

C9 

CIO 

Cl 

CS 

S4 

CIO 

Cll 

C2 

C6 

$$ 

Cl 1 

Cl 2 

C3 

C7 

S6 

09 

C12 

04 

C8 

Cl 

PI 

P2 

SI 

S3 

CIO 

P2 

P6 

S3 

S4 

Cl 1 

P3 

P7 

S4 

SS 

CIS 

P4 

P8 

SS 

SB 

C2 

P2 

P3 

SI 

S4 

C3 

P3 

P4 

SI 

SS 

C4 

P4 

Pt 

SI 

S6 

cs 

PS 

P6 

S2 

$3 

C6 

P6 

P7 

S2 

$4 

07 

P7 

P3 

S2 

SS 

C8 

P8 

PS 

S2 

S6 

C9 

PI 

PS 

S3 

S6 

Pi 

Cl 

04 

C9 

P2 

Cl 

CIO 

C2 


P3 

Cli 

C2 

C3 


P4 

C12 

C3 

C4 


P5 

C5 

08 

C9 


P6 

CIO 

CS 

C6 


P7 

Cll 

C6 

C7 


P8 

C12 

C7 

C8 


SI 

10 

2 

9 

C4 

02 

Cl 

C3 

Cl 

PI 

P2 

SI 

C2 

P2 

P3 

SI 


03 

P3 

P4 

SI 


04 

P4 

PI 

SI 


PI 

Cl 

C4 



P2 

Cl 

02 



P3 

C2 

C3 



P4 

C3 

04 




99 

0 


0 


0.0 

0.0 

0.0 

2 2 

0. 1000000002*01 
0.100000000E+01 
0.1000000002*01 
0.1000000002*01 
2 2 

0.0 

0.0 

0 . 100000000E+0! 
0 . 1000000002*01 
2 2 

0.0 

0.0 

0. 1000000002+01 
0 . 1 00000 000 E +01 
2 2 

0.0 

0.0 

0 . 100000000 E +01 
0.100000000E+01 
2 2 

0.0 

0.0 

0 . 1000000002*01 
0. 1000000002+01 
122 6 


41 


2 


2 


2 


2 


2 


12 


4 


0 


2 


2 


2 


2 


2 


8 


4 


0 
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Data File for Model B 


DATA. FILED 

-0.1000000006+01- 
o.iooooooooe+oi 
1 1 

o.sooooooooe+oo 
1 2 

0.5000000006+90 
1 3 

0.5000000006+00 
1 4 

9 . 5099000O9E ♦ 99 
3 1 

0 0 

o!4322?1361E-01 
0. 1 6543424 IE+0O 
0.3454907546+90 
0.5522630816+00 
0.7499988086+00 
0.9045075776+00 
0.989073 455E *00 
0 . 989074230E +00 
0.9045098426+00 
0.7500020866+00 
0.SS2266896E+OO 
0.34S49433OE+0O 
0.1654370436+00 
0.4322868596-91 
0.0 

0.2S00903S86+O0 
0.2716138966+00 
0.3327173596+00 
0 . 42274S526E *90 
0.5261315116+00 
0.62499922S6+00 
0.7O22S3461E+OO 
0.744S363406+00 
0. 744536757E+00 
0. 7022545936+00 
0.6250008346+00 
0.5261334186+90 
0.4227473146+00 
0.332718790E+00 
0.2716146716+00 
0.2500003586+00 
99 9 


0.1009900006+91- 
0.1000000006 +01 
0 3 

0.5009000096+09 
0 3 

0.5090000006+90 
0 3 

0. 1000000006+01 
0 3 

0.7500000006+09 
4 3 

0.4999998216+00 
0.7933678896+00 
0.8715720186+00 
0.9755280026+00 
0. 99726 1 947E+00- 
0 . 93301 3320E ♦0O• 
O.793893874E♦0O■ 
0.603957534E+00- 
9.3960461626+00- 
9.2061092266+00- 
0.6698852786-01- 
0.2739310266-02 
9.2447080616-01 
0.1284254196+00 
9.2966285946+00 
0.4999963056+09 
0.4999998816+09 
0.6016837956+00 
0.6857857116+00 
0.737763643E+O0 
9.7486301666+00 
0.7165063626+00 
0.6469466696+00 
0.551978707E+00 
0.4480231406+00 
0.3530548816+00 
0.2834945926+00 
9.2513700136+00 
0.2622357616+00 
0.3142 1 2978E +00 
0.3983144766+00 
0.4999981526+09 
0 0 


0.1000000096+91 

0.1000000096+91 

9 9 

0.0 

0 9 

0. 1900099996+01 

0 9 

0.0 

0 9 

0.1000000096+01 
16 2 

0.1569893586-96 
0.1434169126-06 
9.1050465246-96 
0.4851261446-07 
-0.16499S91 36-97 
■0.7849428136-07 
-0.1279967296-06 
-0.1535586316-06 
-0.1535588586-06 
-9.1270974686-06 
*0 . 784953045E-07 
-0.1641070216-07 
0.48S1 149176-0? 
0.1059456156-96 
0.1434164576-96 
0.1569893586-06 
0.1000099006+91 
0. 100090009E+01 
0. 1000900006+91 
0.1090000006+91 
0.1000090006+01 
0.1000009006+01 
0.1000000096+01 
0.1000000096+01 
0.1000000096+01 
0.1000000006+01 
0 . 1000000006+01 
0.1090099906+01 
0.1009990006+91 
0. 190000090E+91 
9.1000000006+01 
9.1900909006+01 

0 0 


0 

9 

0 

0 

16 


9 


9 

0 

0 

9 

2 


0 
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DATA FILE FOR COMBINED MODELS 


0.0 

0.0 

0.9 

0.300000000E+01 

0.3O0000000E+01 

0 • 300090000E +0 1 

1 1 

0 3 

9 0 

0.100009009E+01 

0.0 

0.9 

1 2 

0 3 

0 0 

0 .200000000E+01 

0.0 

0.0 

l 3 

0 3 

0 9 

0.200000000E+01 

6.100000000E+01 

0.0 

1 4 

0 3 

0 0 

0. 100000000E+0 1 

0. 100000000E+01 

0.0 

1 5 

0 3 

0 0 

0.I00000000E+01 

0.0 

0. 100000000E+01 

1 6 

0 3 

0 0 

0.200000000E+01 

0.0 

0.1 00000900E+01 

1 7 

0 3 

0 0 

0.20000O000E+01 

0. 100000000E+01 

0.100090000E+01 

I 8 

0 3 

0 0 

0.100000000E+01 

0.100000000E+01 

0* 100000000E+01 

t 501 

0 3 

0 0 

0.100000000E+01 

0. 500000000E+00 

0 o 500000000E+00 

1 502 

0 3 

0 0 

0 a 2 000 0000 0E *01 

0.500000000E+90 

0.500000358E+00 

i 503 

0 3 

0 0 

0.100000000E+01 

0. 100000000E+01 

0 • 5900 00000E 400 

1 504 

0 3 

9 0 

0.200000090E+01 

0 . 750000000E+00 

0.500900358E+00 

2 1 

1 3 

2 0 

0. 1 0000000 0E +0 1 

0.0 

9.0 

0.200900000E+01 

0.0 

9.9 

2 2 

1 3 

2 0 

0*2 000 0000 0E + 01 

0.0 

0.0 

0.200000000E+01 

0.100000900E+01 

0.0 

2 3 

1 3 

2 9 

0.200000000E+01 

0. 100000000E+01 

0.0 

0 • 100000000E *01 

0.100000000E+01 

0.0 

2 4 

1 3 

2 9 

0 . 1 00000000E+01 

0. 100000000E*01 

0.0 

0 • 100000000E+01 

0.0 

0.0 

2 S 

t 3 

2 9 

0.100000000Et01 

0.0 

0 • 190000000E+01 

0 0 200000000E + 0 1 

0.0 

0.100009000E+01 

2 6 

1 3 

2 9 

0. 200000000E+01 

0.0 

9.1 00090000E+01 

0.200000000E+01 

0.1 00000000E *01 

9 • 100000000E+01 

2 7 

1 3 

2 0 

0.200000000E+01 

0. 109000000E+01 

0.1 00000000E+91 

0 • 10 0000 000 E +0 1 

0. 100000000E+01 

0. 1 00000000E+01 

2 8 

l 3 

2 9 

0 • 100000000E+01 

0. 1 O0000000E+01 

0 * ! 00000000E *0 1 

0. 100000000E+01 

0.0 

0. 100000000E +0 1 

2 9 

1 3 

2 0 

0.100000000E+01 

0.9 

0.0 

0 • 1 00000000E +0 1 

9.0 

0.1 00009000E *0 1 


a 10 

0.2000000005*01 0.0 

0 • 200090000E+91 9.0 


a 0 
0.9 

9. 109009009E+91 


9 

9 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 
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2 11 

0,2000000005401 
0.2000000006 *01 
2 12 

e.iemeeeeE+ei 

0.100000000E401 
3 1 

0.100000900E+01 
0.200000900E+01 
0.100000000E+01 
0 . 200900000E+0 1 
3 2 

0. 109000000E+01 
0.200000O00E*01 
9. 100000000E+01 
0.200009000E*O1 
3 3 

0. 100000O00E+01 
0.200000000E+01 
0.1900000O0E401 
0. 2000 00000E 401 
3 4 

0.200000000E+01 
0.200000000E+01 
0.200000000E+91 
0.2000O0000E401 
3 5 

0.209000000E+01 
0. 10O000O00E+01 
0.20000O000E*01 
0. 100000000E+01 
3 6 

0. 1000O0000E+01 
0. 10O000000E+01 
0. 100000000E+0! 
0 . 100000000E+01 
3 101 

0 . 1 0090000OE ♦O 1 
0.100000O00E+01 
0.100000O00E+01 
0. 100000000E+01 
0. 10O000000E+01 
0.100000000E401 
0.100000000E+01 
0. 100000000E+01 
0. 100000000E+01 
0. 100000000E+01 
9. 190000000E+01 
0.1 0000000 0E+ 01 
9. 100009009E+91 
0. 100000000E+01 
0. 100000009E+01 
0. 100000000E*01 
9.200090000E401 
9.200000009E401 
0.200009090E401 
0.299900000E401 
9.200000000E+01 


1 3 

0. 1000O0999E+91 
9. 100090000E+01 
1 3 

0. 100000000E+01 
0 . 1 00000090E * 0 1 
3 3 

0.0 

9.0 

0. 100000090E+91 
0.1 00000000E401 
3 3 

0.0 

0.0 

0 . 1 00000990E +01 
0. 100000000E+01 
3 3 

0.0 

0.0 

0.0 

0.0 

3 3 

0.0 

0.100000000E+01 

0.0 

0. 100000000E401 
3 3 

0. 100000000E+01 
0. 100000000E+91 
0. 100000000E+01 
0. 100000000E+01 

3 3 

0.0 

0. 1O0000000E+O1 

0.0 

0. 100000000E401 

4 3 
0.49999982 IE +00 
0.703367889E400 
0.871572918E+00 
0.975528002E+00 
0. 99726 1047E +00 
0. 93301 3320E 400 
0.793893874E400 
0 . 603957534E *00 
0. 396046 162E 400 
0 . 206 1 09226E 400 
0.66988S278E-01 
0. 27393 1026E -92 
0 . 244708061 E -01 
0.123425419E400 
0 . 296628S94E 400 
0.49999630SE40O 
0.499999881E400 
0.601683795E400 
0.68578571 IE 400 
0 . 737763643E *00 
0. 7486391 66E400 


2 0 

9.9 

0. 199000000E401 

2 9 

0.0 

0 . 1 00000000E401 
2 2 

0.0 

0.0 

0.0 

0.0 

2 2 

0.100000090E401 
0.100009000E401 
0.100090900E401 
0. 100000000E401 
2 2 

0.0 

0.0 

0.100000000E401 
9.100009000E401 
2 2 

0.0 

0.0 

0. 1 00009900E 4 0 1 
0. 100000000E401 
2 2 

0.0 

0.0 

0. 100000000E401 
0. 100000000E401 
2 2 

0.0 

0.0 

0. 100000000E+01 
0. 100000000E401 
16 2 

0 . 1O0009000E 40 1 
0 . 956772864E+00 
9.83456S759E400 
0.654S09246E400 
0. 4477369 19E 400 
9. 25000 1192E 400 
9.954924226E-91 
0.1 09265 447E -01 
0.109257698E-01 
0.954901576E-01 
0. 24999791 4E 400 
0.447733104E400 
0 . 65 45056 70E 400 
9.834562957E400 
0.956771 3 14E 400 
0.190000000E401 

9 . 750000090E 4 00 
9.728386 462E 400 
0.667282999E+00 
9.577254832E400 
0.473868847E400 


2 

2 

2 

2 

2 

2 

2 

2 

16 


0 

0 

2 

2 

2 

2 

2 

2 

2 
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0.2000000006+01 0.7165063626*00 0. 375001 1326*00 
0.2000000006*01 8.6469466636*00 0.2977468976*00 
0.2000000006+01 0.551978707E+00 0.2554640176+00 
0.2000000006+01 0.4480231406+00 0.2554636006+00 

0.2000008006+01 8.3530548816*00 0.2977457646*00 
0.2000000806*01 0 .2834945926*00 0.3749995236+00 
0.2080000006+01 0.251370013E+00 0.4738669406+00 
0 . 2080000006+01 0 .26223576 1E*08 O.S77253044E+00 
0.2000000006+01 0.3142129786+00 0.6672815686*00 
0.2000000006*01 0.3983 144766+00 0.7283856876+00 
0.2000000006+01 0 . 4999981526+00 0.7500000806+00 

10 1 7 3 122 6 12 8 

51 C4 C2 Cl 03 

52 08 C6 05 07 

53 09 C 10 Cl 05 

54 C10 Oil C2 C6 

55 Oil 012 C3 07 

56 C9 C 12 C 4 C8 

Cl PI P2 51 S3 

010 P2 P6 S3 S4 

011 P3 P7 S4 $5 

012 P4 P8 S5 S6 

02 P2 P3 SI S4 

03 P3 P4 51 S5 

04 P4 PI SI S6 

C5 PS P6 52 S3 

06 P6 P7 S2 S4 

C? P7 P8 S2 S5 

08 P8 PS S2 S6 

09 PI P5 S3 S6 

PI Cl 04 C9 

P2 Cl 010 02 

P3 Cll 02 03 

P4 C 12 03 04 

PS CS 08 09 

P6 C18 05 06 

P7 Cll 06 07 

P8 C12 07 08 

10 2 9 3 41 t 4 4 

SI 04 02 Cl 03 

01 PI P2 SI 

02 P2 P3 SI 

C3 P3 P4 SI 

04 P4 PI SI 

PI 01 C4 

P2 Cl 02 

P3 02 03 

P4 03 04 

99 0000000 
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40 DISCRETIZING GEOMETRIC MODELS 


4.1 I nt roduc 1 1 on 

The ESMOSS discretization library requires two files, a geometry file and 
a discrete data file, before a finite element model can be generated The 
geometry file contains a regionalized description of the part in the form o 
cubic B-splines The discrete data file can be created at the beginmg of a 
discretization session or it may contain a partially or completely discretized 
model The user must ensure that an old discrete data file matches the 

geometry file 


4.2 Regionalized Model 


ESMOSS discretizes a geometric model on a region 
model may contain up to 200 individual regions, 
discretized (or rediscretized) without affecting the model as 
suggested that the user start discretizing at one end 
continue by operating on adjacent regions. This will prevent 
from having conflicting numbers of nodes 


by reg 1 on bas is A 
each of which may be 
a who 1 e . It is 
of the model and 
opposite edges 


Presently, a geometric model can be divided using four different region 
types Solid models must be divided into six- sided solid regions Plate, 
shell or two-dimensional models may be divided into four-sided regular 
regions. four-sided irregular regions, or three-sided irregular regions or a 
combination of all three 


4.21 Six-Sided Solid Regions 


Solid 3-D models must be divided into regions composed of 8 vertices 
(geometric points). 12 edges (geometric curves), and 6 faces (geometric 
surfaces). Each edge may have its nodes biased independently allowing 
concentrations of nodes in high stress areas, however, opposite edges 
required to have equal numbers of nodes Presently, all solid models 
discretized with eight-noded brick elements. 


higher 
are 
are 


4.2.2 Two-dimensional Regular Regions 


by ESMOSS . 
As with the 


The 

solid 


These are the simplest of the region types supported 
region is a single face bounded by 4 vertices and 4 edges 
regions, opposite edges must have equal numbers of edge nodes, while biasing 
remains independent. Element types supported are corner-noded quadrilaterals 
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and triangles 


4.2.3 Two-dimensional Irregular Regions 


The irregular region removes the constraint that opposite edges must have 
equal numbers of nodes Each edge is assigned a number of nodes and the 
program automatically transitions from an edge of high nodal density to one of 
low density. This allows the user greater flexibility placing nodes in areas 
suspected to have high deformation. Edge biasing is still permitted, but the 
choice of element type is triangular or "mostly" quadrilateral elements 
Highly irregular regions will require at least a few triangular elements mixed 
among a grid of corner-noded quadrilaterals ESMOSS supports both three-sided 
and four-sided irregular regions 


43 Relational Model 


Communication between the geometry and discretization portions of ESMOSS 
is made via normalized shapes refered to as relational models. The relational 
model is simply a definition of the relationship of the regions of the model 
The relational model is created and maintained by ESMOSS and is essentially 
invisible to the user The model keeps track of which vertices, edges and 
faces form a region, where regions connect, which regions have been 
discretized and the manner in which discretization was executed In short, 
the relational model frees the user from the many bookkeeping tasks which 
occur in the development of a finite element model. 


4.3.1 Relational Model Description 


Each region of a model is composed of a collection of geometric entities 
which may be created in a fairly general pattern. Order of creation, labeling 
and orientation are left to the user s convience. ESMOSS sorts this geometric* 
information and rearanges it into indices such that discretization can occur 
in an efficient manner The relational model then converts these indices into 
the geometric entity names which are recognized by the geometry library The 
coordinates returned are then associated with their relational model index 
until a region is completely discretized. 


4.3.2 Relational Model Definitions 


The relational model defines the correspondence between the various 
geometric entities to their discrete counterparts in the following manner 

*1) Region vertex points become discrete vertex nodes in a one 
to one manner • 

2) Geometric curves which bound a region are discretized into 
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edge nodes. Edge nodes do not include the two bounding vertex 
nodes 

3 i Geometric surfaces are discretized into face nodes 

Again, the face nodes include only nodes on the surface itself, 
excluding both edge and vertex nodes 

4i The interior of a solid geometric region is discretized into 

interior or region nodes These do not have a direct correspondence 
with any geometric entities but are derived by the discretization 
1 ibrary 


The relational model ensures that adjacent regions, which are d 
at different times, do not have duplicate discrete entities 
geometric vertex point which is part of more than one region becomes 

vertex node 


l scret l zed 
That is. a 
a single 


4.4 Discretization Procedure 


After a regionalized geometric model has been created the ds ^ r *t nation 
library of ESMOSS may be accessed This is accomplished by selecting D 1 p 
MODEL CONSTRUCTION from the ESMOSS Master Menu. The resulting menu. DEVELOP 
ni 9CRETE MODEL offers a number of discrete model options In this por ion o 
«nu.r“ .r^ co",rn.d «uh option number 1. DISCRETIZE GEOMETRIC MODEL 


4.4.1 Define Discretizing Files 


The first step in the discretization process is the initialization of all 
buffers which will be accessed during the generation and storage of the finite 

arrays contain the information which makes up the 
well as providing operating space for the discretizing 
the user to input the names of the geometry file and the 
The geometry file must contain the regionalized geometry 
of the part to be discretized As geometry information is read and stored in 
the appropriate buffers, each visible entity is displayed The discrete data 
file mav be old or new If the file is old. the data contained must 
correspond to the selected geometry file, i e. no changes can be made to a 
geometry file without creating a new discrete data file. 


element model These 
relational model as 
process ESMOSS asks 
discrete data file 


4.4.2 Display Model Status 


This option allows the user to determine which regions, if 
previously discretized ESMOSS queries the user for the region 
for all regions) and then accesses the relational model to 
status of the region(s) The region number and its status are 


any. have been 
of interest (0 
determine the 
then printed 
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4 4.3 Regionalized Model Plot 

The user may request a regionalized plot of the part contained in the 
geometry file. This allows him to view all geometry of the part and the 

regions it has been divided into Later, during the discretization. correct 
region numbers will required 

444 Discretize Region 


Actual generation of the nodes and elements composing a finite, element 
model occurs when DISCRETIZE REGION is selected. It is important to remind 
the user that ESMOSS discretizes on a region by region basis While each 
region is not totally independent, a region can be discretized and 
rediscretized without effecting the remainder of the model A partially 
discretized model can be saved, allowing the user to start during one session 
and finish during a later session without loss of effort. 


4.4.4. 1 Region Discretization Options 


Presently. ESMOSS provides three discretizing options corresponding to 
the three acceptable region types (see Section 4,2). The first option. EIGHT 
NODED BRICKS, must be used with a three- dimensional solid region composed of 
8 vertices. 12 edges. and 6 faces. This option results in finite element 
model composed of corner-noded brick elements. 

The second option. REGULAR 2— D REGION, allows the discretization of 
regions composed of 4 vertices, 4 edges, and 1 face. The region may be 
planar, or three-dimensional and can be discretized with either corner noded 
quadrilateral elements or corner node triangles. This option restricts 

opposite edges to have equal numbers of nodes 

The primary difference between option 2 and 3, IRREGULAR 2-D REGION. is 
the elimination of the opposite edge restriction Here, each edge of a region 
can have any number of nodes, with the variation distributed across the 
region s face This added degree of freedom may result in a considerable bit 
of number crunching and should not be used indiscriminately. In addition 
most regions will require the generation of at least a few triangular 
elements 


4. 4. 4. 2 Selecting Region Number 


After a region type has been selected, ESMOSS requests a specific region 
number The program then runs a number of checks through access to the 
relational model. First, the discrete status of the region is checked. If 
the region has been previously discretized, the user is asked if he wishes to 
rediscreti 2 e the region If he does, the bounding curves of the region are 
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displayed and labeled 


The next check performed verifies that the region type agrees with the 
discretization option . hosen If a conflict is found, the user is informed 
and control is returned to menu l-vel Otherwise the diseri t izat ion of this 
region begins with the generation and or display of vertex nodes To ensure 
that duplicate vertex nodes do not occur. each geometric vertex point is 
checked to see if it has previously been discretized This would occur if an 
adjacent region had been discretized 


ESMOSS next turns its attention to the region edges. Each edge is 
checked to see if it has previously been discretized as part of an adjacent 
region If so. any existing edge nodes are added to the current region plot 
For solid and 2-D regular regions any previously discretized edge causes the 
number of edge nodes to be propagated to all opposite edges on this region 
Additionally, as a number of edge nodes is propagated, a check is made for 
connecting numbers Such an error could arise if discretization begins on 

one end of a model and then jumps to the other leaving one or more 
undi scret 1 zed regions in between If this error occurs, control is returned 

to the menu level and the user is left with two options, in addition to 
starting over If the model is solid. one of the regions containing a 

discretized edge must be redi scret 1 zed with the correct number of nodes For 
2-D models, the conflict can be also be resolved by discretizing this region 
as a 2-D irregular region This approach will automatically transition from 
one number of nodes to another 


The final action before additional input is required is the display of 
all free edge names For each set of oppos i te edges (or in the irregular case 
for all und 1 sere 1 1 zed edges) the edge number is displayed, and the user is 
informed that these edges are currently assigned zero edge nodes Solid 
regions will cause groups of four edges to be displayed. 2D regular regions 
have sets of 2 edges, while the irregular regions display each free edge 

independent ly 


4. 4. 4. 3 Setting Number of Edge Nodes 


After all existing edge nodes have been displayed. ESMOSS prompts the 
user to input an edge name and the desired number of nodes to be generated 
along this edge (and anv opposite edges) The routine first checks to see if 
the supplied edge number is part of the region currently being discretized 
Next, a check is made to see if the edge is free or if a number of nodes has 
been defined Given a free edge, the supplied number is propagated to all 
opposite edges and the user is prompted to input another edge name If the 
edge is not free. the input number of nodes is checked against the number 
previously assigned to the edge If the numbers match no error is generated 
and the redundant information is ignored In either error situation a 
diagnostic message is printed and the user is prompted to input another edge 
name If all edges have been set. or the user wishes to default any remaining 
edges to zero edge nodes, "O.O" is required as input. 
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4444 Biasing of Edge Nodes 


In model- suspected of having stress i oncfntrat ions, it is desirable t o 
vary the mesh density from coarse in low stress areas to fine in areas of 
great stress To accomplish this, while minimizing the number of regions. 
ESMOSS permits nodes to be biased along each edge Unlike the number of edge 
nodes, biasing types and parameters are not propagated to opposite edges The 
only restriction is that edges common to more than one region have consistent 
bias types and parameters. 

To bias edge nodes, when prompted, the user supplies an edge name The 
program then checks if this edge is part of the current region and. if so, 
requests a bias type and parameter. ESMOSS allows . the user four biasing 
options: 

1 * No Bias 

This is the default option and produces equally spaced nodes along 
an edge In this case the input bias parameter is ignored 

Z = End Bias 

This option allows nodes to be packed closer to one 
end of an edge When this option is chosen, the two bounding 
vertices are displayed and the user is asked toward which vertex 
should the nodes be packed The input value is checked to ensure 
that it is part of the edge in question and, assuming it is, - 
edge nodes are generated and displayed. 

3 = Center Bias 

In this case, nodes are symmetrically packed toward the center of the 
edge. The bias parameter determines how tightly the nodes are 
packed 

4 = Edge Bias 

This bias type is the inverse of center bias. Nodes are 
symmetr ical Iv packed toward each vertex of an edge. 

The bias parameter, which is required with each bias type, determines the 
magnitude at which edge nodes are to be packed The parameter is read as a 
real number and must be greater than zero The bias parameter is used such 
that a value of 2 0 places nodes twice as closely in the packed section as at 
the loose area, with a linear variation in between 

When the desired bias type and parameter has been applied to all edges of 
a region, ESMObb requires the user input an edge number of "0" when prompted. 
After receiving this value, the program checks all edges of the current region 
to ensure that a bias type and parameter have been assigned If an unbiased 
edge is found, the program defaults this edge to bias type number 1, no bias. 
This allows the user to worry only about those edges in which he wishes to 
alter the equally spaced node distributions 

Once the number of nodes, bias type, and bias parameter of an edge is 
defined ESMOSS then proceeds with the generation of nodal coordinates To 



accomplish this. the discretization procedure must access the geometric 
librarv where the actual coordinates are generated Geometry requires the 
edee number . the number of nodes to be generated and an array containing the 
parametrized position f?" .a.tors, of each node along the edge As an 
example consider an arbitrary edge along which 3 equally spaced nodes are to 
be generated The array of "S' factors would contain the real numbers 0 . -j . 
0 50 and 0 75 It is a requirement that the "S" factor array start with the 
lowest value (greater than zero), and increase to the highest parameter (less 

than 1.0). 


4. 4. 4. 5 Face Node Generation 


After all edge nodes have been plotted. ESMOSS begins the discretization 
of each face of the region First, the program checks if the face has been 
previously discretized. If it has. the existing nodes are plotted. If not. 
the geometric librarv must again be accessed to generate face nodes. n is 
case, the discretization library provides a face number, number of face nodes 
to be generated, and two real arrays containing the parametrized position of 
each node on the face These arrays contain "S" and "T" factors which were 
generated using the "S“ factor arrays required to generate edge nodes In 
this way. face node generation reflects the edge bias pattern without 
requiring additional input 


4.4.4 6 Interior Node Generation 


For solid models. ESMOSS employs a three-dimensional cubic Lagrangian 
shape function to generate interior nodal coordinates This method 
parameterizes the solid region using 64 sets of coordinates (8 vertex nodes^ 
24 edge nodes and 24 face nodes, generated using the geometric library, and 8 
interior nodes found iteratively). The parameters, in this case "S" . "T" . and 
”U" are calculated bv weighing the six sets of ”S" and "T" factors calcuated 
for each face of the region. In this manner, the interior nodes also reflect 
the edge bias pattern 


4 4.4.7 Element Generation 


Presently. ESMOSS supports three types of elements For solid models, 
eight-noded brick elements are used Two-dimensional or shell models can be 
discretized using either corner-noded quadrilaterals or corner-noded 
triangles In each case, the element connectivity is counter-clockwise. When 
discretizing a regular 2-1) region, the user has the option of all triangles or 
all quadrilaterals When discretizing irregular regions, however, the user is 
restricted to triangles or mostly quadrilaterals with an occasional triangular 
element when necessary 
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4 5 Saving Discrete Data 


Prior to ending a discretization session the user must indicate whether 
he desires to save the newlv generated discrete data A yes answer causes the 
discrete data to be saved on the file that was indicated at the beginning of 
this discretization session A negative answer terminates the discretization 
activity and any discrete data generated is lost 


4.5 1 Discrete Data File 


The ESMOSS discrete data file contains three types of information The 
first section contains the regionalized relational model information This 
data is used whenever a region is redi sc ret l zed or when a partially completed 
model is finished The second section of the file contains the nodal 
coordinates and element connectivity used to describe the discrete model. The 
third section contains the discrete model finalization data 


4.6 Discrete Model Interfacing 


The Discrete Model Interfacing module of ESMOSS 
two discrete models stored in separate data files 
discrete model The menu sequence to interface two 
foil ows 


allows the user to take 
and combine them into one 
discrete models is as 


MASTER MENU 

1 EXECUTE COMMAND FILE 

2 UTILITY COMMANDS 

3 GEOMETRY MODEL CONSTRUCTION 
* 4 DISCRETE MODEL CONSTRUCTION 


DEVELOP DISCRETE MODEL 

1 DISCRETIZE GEOMETRIC MODEL 

2 DISCRETE MODEL PLOT 


INTERFACE DISCRETE MODELS 

1 DEFINE MODEL FILES 

2 MOVE NODE 


The following sections descri 


5 RECIPE ENGINE PARTS 

6 GENERATE ANALYSIS INPUT 

7 FILE HANDLER 

8 DONE 


? INTERFACE DISCRETE MODELS 
4 FINALIZE DISCRETE MODEL 


3 ELIMINATE COMMON NODES 

4 END 


be these four menu items in detail 
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461 Define Model Files 


Thi' is the section that interfaces the two discrete models ESMOSS asks 
the user for the names of the files that contain the two discrete models 
Then ESMOSS asks the user for the X.Y.Z rotation and translation values to 
move the second model into its desired place ESMOSS then asks the user for 
the starting node number for the second model and tells the user that the 
number must be greater than n. which is the largest node number for the first 
model. ESMOSS does the same thing for the starting element number for the 
second model. ESMOSS then uses these numbers to renumber the nodes and 
elements on the second model of the combined model to eliminate the chance of 
any duplicate node and element numbers. 


4.6.2 Move Node 


This module allows the user to move any node on the combined model 
ESMOSS asks the user for the node to be moved and its new x.y.z coordinates 


4.6.3 Eliminate Common Nodes 


This module allows the user to eliminate common nodes within a specified 
tolerance ESMOSS asks the user for the tplerance and tells the user that 
0.0001 is suggested 

4.6.4 End 


End must be executed to get out of the Interface Discrete Models module 
ESMOSS asks the user for the name of a discrete output file. Then ESMOSS asks 
the user if he wants to save the discrete data If yes, the combined discrete 
model data will be written on the specified output file. If no the combined 
discrete model data will be lost 
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5.0 RECIPE PROCESSOR 


5 . 1 Int roduct i on 


The Recipe Processor is a quick, easy method of generating geometric and 
discrete models with minimum user input. The geometric model can usually be 
generated by using a parametric representation of the data, thus eliminating 
the need for defining the geometry explicitly using the Geometric Model 
Construction menu. The Recipe Processor reads the recipe file, intreprets 
each line of the file and generates an ESMOSS command file. 

A recipe is written as a program using its own high level programming 
language which allows the use of variable names and mathematical expressions 
such as Fortran There is a set of reserved words that comprises the language 
of the recipe that can be used to create a model. 


ABS 

ACOS 

AND 

ARC 

ARCCF 

ASIN 

ATAN 

ATAN2 

BIASCNTR 

B I ASEDGE 

BIASEND 

CIRCLE 

CIRCLEC 

COS 

COSH 

COTAN 

CVPTFILE 

CYLINDR 

CYLINDRP 

DEFINE 

DELETECV 

DELETEPT 

DIM 

DI SEDGE 

DIS2DIRG 

DIS2DREG 

DIS8NBRK 

ELSE 

END 

END IF 

ENDISCRT 

ERF 

ERFC 

EXP 

FRUSTKUM 

GAMMA 

IF 

INCLUDE 

INTRSECT 

LGAMMA 

LINE 

LOG 

LOGIO 

MAX 

MIN 

MOD 

MRGCURVE 

NOT 

OR 

PARABOLA 

PARMCRV 

PARMSRF 

PLANE 

PLANE4PT 

POINT 

PRINT 

RADIAN 

READ 

REG2D4S 

REG3D 

REPEAT 

REVOLVE 

RULEDSRF 

SETMODE L 

SIGN 

SIN 

SINH 

TRUNC 

SQRT 

UNTIL 

SUBSURFC 

WRITE 

TAN 

TANH 

THEN 


The above words represent special functions to the Recipe Processor, and 
therefore, cannot be used as variable names or otherwise used in the recipe 
except for their specified purpose. 

A line which begins with the characters "(•** is interpreted as a comment 
line; anything that follows these two consecutive characters will be ignored 
by the Recipe Processor. 


5.2 Recipe Reserved Words 


The following sections describe the reserved words allowed by the recipe 
processor. Following each description is an example of use. 
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5.2.1 ABS 


The ABS is the absolute value function, and performs in the same manner 
as the Fortran Standard Function 

X = ABS (X) 


5.2.2 ACOS 


The ACOS is the Arccosine function, and performs in the same manner as 
the Fortran Standard Function. 

X = ACOS < 1 ) 


5.2.3 AND 

AND is a logical operator, and 
expressions . It can be used exactly 

IF (X < 10 AND Y =2) 


is used as a connective between two 
the same as in Fortran. 


5.2,4 ARC 

The ARC command is used to construct geometry using circular arcs. The 
command has the same function as the arc command in the Geometry Construction 
Menu. The syntax is as follows, curve number, center point number , beg inning 
point number, ending point number. 


ARC (11,2,3.4) 


5.2.5 ARCCF 


The ARCCF command is 
that the arc is being 
points and a point on the 
points and a center point 
Processor . 


used exactly the same as the ARC command, except 
constructed using three points on the arc, two end 
arc, instead of the . previous method of two end 
This option adds greater flexibility in the Recipe 


ARCCF (12,3.4,5) 
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5 2.6 ASIN 


The ASIN is the Arcsine function and performs in the same manner as the 
Fortran Standard Function 

X = ASIN (0) 


5.2.7 ATAN 


The ATAN is the Arctangent function and performs in the same manner as 
the Fortran Standard Function 

Z = ATAN ( . 5 ) 


5 2.8 ATAN2 


The ATAN2 is the Arctangent function with two parameters. The Y - axis 
must be the first arguement specified in the parameter list. 

Z = ATAN2 (2/1) 

5.2.9 BIASCNTR 


The command BIASCNTR is part of the discretization options that lets the 
user bias the center of the edge. This allows more nodes to be concentrated 
toward the center of the edge. The syntax is as follows. the name bf the 
edge, and the bias parameter. 

BIASCNTR (2.. 75) 


5.2.10 BIASEDGE 


The command BIASEDGE allows the user 
both edges. This is the opposite of 
name of edge, and the bias parameter. 


to concentrate more nodes toward 
BIASCNTR. The syntax is as follows. 


BIASEDGE (3,. 75) 
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5 2.11 BIASEND 


The command BIASEND allows the user to bias the end 
allows more nodes to be concentrated toward the end of 
,s as follows the name of the edge, the bias parameter 
bias toward 


of the edge This 
the edge The syntax 
and the vertex to 


BIASEND (4. 50,2) 


5.2.12 CIRCLE 


The CIRCLE command is used to construct circles using a center point 
two points on the circle The command has the same function as the circl 
c’L.nd ?i the Geometry Construct. o„ Menu The synt.s .s es .oUo.s curve 
number, center point, two points on the circle. 

CIRCLE (10,25,31.32) 


5.213 C1RCLEC 


The CIRCLEC command is used to construct circles using three points 
the circumference of the circle. The command has the same function as 
circle command above, except the syntax is three circumference points 


on 

the 


CIRCLEC (11,31,32,33) 


5.2.14 COS 

The COS is the Cosine function, and performs in the same manner as the 
Fortran Standard Function. 

X = COS ( . 5 ) 

5.2.15 COSH 

The COSH is the Hyperbolic Cosine function, and performs in the same 
manner as the Fortran Standard Function. 

Y = COSH ( . 9 ) 
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5.2.16 COTAN 


The COTAN is the Cotangent function, and performs in the same manner as 
the Fortran Standard Function 

Z = COTAN ( . 5 ) 

5.2.17 CVPTFL 


The CVPTF1LE command is used to construct a curve from a point file. It 
is important to note that if a recipe is executed using this command, the 
point file name must have already been opened by the File Handler as a point 
file If the user fails to open this file before executing the command file 
generated by the recipe, the procedure will fail. The syntax is as follows 
the number of the curve, the number of points to skip in the point file before 
reading points, the number of points to evaluate along the curve. and the 
number of B-splines required to fit the curve. 

CVPTFILE (210,0,3,1) 


5.2.18 CYLINDR 


The CYLINDR command is used to contruct cylindrical geometry using the 
center point of the bottom, and the center point of the top of the cylinder. 
The radius of the cylinder is also required input to construct the geometry. 
The syntax is as follows: the number of the cylinder, the magnitude of the 
radius, the bottom center point of the cyclinder, and the top center point. 

CYLINDR (2, .5, 1 ,2) 


5.2.19 CYLINDRP 


The CYLINDRP command is used to construct cylindrical geometry using the 
center point of the bottom, and the center point of the top of the cylinder. 
A point on the circumference of the circular bottom is also needed to complete 
the required input. The CYLINDRP command performs the same function as the 
CYLINDR command except the CYLINDRP command uses a point on the circumference 
of the cylinder to compute the radius, whereas the CYLINDRP command gets the 
radius explicitly from the user. The syntax is as follows the number of the 
cylinder, the point on the circumference, the center point of the bottom, and 
the center point of the top of the cylinder. 

CYLINDRP (3,8, 1 ,2) 
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5.2.20 DEFINE 


The DEFINE command is used to create macros to perform a given function 
or group of instructions repeatedly The command should be the first. line of 
the macro and give a name to the procedure The macro can be located anywhere 
‘I;,”"; the rec P e. b»t .I must he pieced before the fret re.dr.no, .. »d« 
to it The macro must then be terminated with an END statement to signal the 
conclusion of the procedure. To call or execute the macro in the rec.p^ 
simply type the name of the macro. There can be no parameters passed back and 
forth and all variables are global Below is an example of how to set up a 
macro and how to execute it . 


DEFINE BOX 

POINT (P+1, XBOTLEFT , YBOTLEFT , 0 ) 

POINT (P+2, XBOTLEFT. YBOTLEFT+W I DTH.O) 

POINT (P+3, XBOTLEFT+LENGTH , YBOTLEFT+W I DTH . 0 ) 
POINT (P+4 . XBOTLEFT+LENGTH, YBOTLEFT, 0) 

C 

P=P+4 
END BOX 
P=0 

SETMODEL (0,0,0,15,15,15) 

XBOTLEFT = 1 
YBOTLEFT = 1 
LENGTH = 2 
WIDTH = 2 
BOX 

(* 

XBOTLEFT = 4 
YBOTLEFT = 4 
BOX 


In the previous example, a 4 point square will be 
first time, the lower left point will be at (1,1.0) 
(4,4,0). The use of the macro prevented the user 
parametric equations repeatedly to create geometry. 


created twice. The 
, and the second time 
from typing in the 


5.2.21 DELETECV 

The DELETECV command allows the user to delete a curve. The only 
parameter needed is the number of the curve to be deleted. 

DELETECV (456) 
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5.2.22 DELETEPT 


The DELETEPT command allows the user to delete a point. The only 
parameter needed is the number of the point to be deleted 

DELETEPT (400) 

5.2.23 DIM 


The DIM obtains the positive difference between two numbers. The value 
of the function is A1 - A2 if A1 > A1 , and 0 if A1 < A2 The function 
performs in the same manner as the Fortran Standard Function. 

DIM (XI, Yl) 


5.2.24 DI SEDGE 


The DISEDGE command permits the user to discretize an edge of a model and 
specify the number of nodes that are to be placed on the edge. The syntax is 
edge number and number of nodes to be placed on the edge. 

DISEDGE (2,4) 


5.2.25 DIS2DIRG 


The DIS2DIRG command starts the procedure to discretize a 2 dimensional 
irregularly shaped region The only parameter needed is the name of the 
region to be discretized. 

DIS2DIRG (1) 


5.2.26 DIS2DREG 


The DIS2DREG command starts the procedure to discretize a 
region. The only parameter needed is the name of the 
discretized . 


2 dimensional 
region to be 


DIS2DREG (2) 
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5.2.27 DIS8NBRK 


The DIS8NBRK command starts the procedure to discretize a 3 d 
eight noded bnclc region The only parameter needed is the name of 
to be discretized. 


imensional 
the region 


DIS8NBRK (3) 


5.2.28 ELSE 


The ELSE statement is used in 
IF statement, the ELSE option can 
executed only when the IF test is 


the same manner as Fortran. When using and 
be used to indicate a section of code to be 
false 


IF (X = 1) 
THEN 

Y = 1 
ELSE 

Y = 2 
END IF 


5.2.29 END 


The END statment is used to end a procedure or the recipe itself. In the 
case of DEFINE, the END statment is followed by the name of the macro (e g. 
END* BOX) . in the case of the recipe, the statement END RECIPE will terminate 
the recipe and return control from the recipe processor back to ESMOSS 


END RECIPE (end the recipe) 
or 

END BOX (end a macro) 


5.2.30 END IF 


The END IF statement 
statement must have an 
nested IF statements, the 


is used to terminate an IF statement. Every IF 
ENDIF to conclude the procedure, and in the case of 
first ENDIF will terminate the last IF statement 


started . 


ENDIF 
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5.2 31 ENDISCRT 


The ENDISCRT statement is used to terminate a discretization procedure 
When a region is discretized in the recipe, the action is started with a 
DIS2DREG, D1S2DIRG or DIS8NBRK statement. These statements. and the 
statements that follow them are used to identify the region to be discretized 
and to place the proper number of nodes on each edge of the region. The 
ENDISCRT is used to wrap up all these statements and to prepare for the next 
step. Each region discretization procedure must end with a ENDISCRT 
statement 

ENDI SCRT 


5.2.32 ERF 

The ERF is the Error Function, and performs in the same manner as the IBM 
Fortran Function. 

Y = ERF (X) 

5.2.33 ERFC 


The ERFC is another version of the Error Function, and performs in the 
same manner as the IBM Fortran Function. 

Z = ERFC (X) 


5.2.34 EXP 


The EXP is the Exponential function, and performs in the same manner as 
the Fortran Standard Function. 

Y = EXP(X) 
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5.2.35 FRUSTRUM 


THE FRUSTRUM command is used to construct a frustrum using a point at the 
center of the top and bottom of the entity, and a point on the circumference 
of the top and the bottom. The command has the same function as the frustrum 
command in the Geometry Construction Menu The syntax is as follows surface 
number, the 2 axis end points, a point on the frustrum base, and a point on 

the frustrum top. 


FRUSTRUM (4, 1.2, 8. 9) 


5.2.36 GAMMA 

The GAMMA function performs in the same manner as the IBM Fortran 
Func 1 1 on 

Y = GAMMA (X) 


5.2.37 IF 


The IF statment is used to test on a condition and perform one function 
if a true condition is found, and perform another function if a false 
condition is found. The syntax follows the Fortran 77 convention. 

IF ( A = 1) 

THEN 
B = 2 
END IF 
or 

IF (VAL =11) 

THEN 

XV AL = 2 
YVAL = 3 
ELSE 

XVAL = 5 
YVAL = 5 
END IF 
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5.2 38 INCLUDE 


The INCLUDE command is used to include another file into the recipe 
command file. This command bring in another recipe or set of data to the 

current recipe that is being processed. Several files can be included at one 
time, the syntax is the INCLUDE statement followed by the file name in 

parenthesis, and then to terminate the INCLUDE process, and INCLUDE statement 
with no file name will revert back to processing other recipe commands. 

INCLUDE ( AEECJHT . FI LEI DATA ) 

INCLUDE (AEECJHT FI LE2. DATA) 

INCLUDE (AEECJHT . FI LE3 . DATA) 

INCLUDE 


5.2.39 INTRSECT 


The INTRSECT command is used to construct a curve from the intersection 
of two surfaces. The command has the same function as the intersect command 
in the Geometry Construction Menu. The syntax is as follows the curve 
number, the number of the first surface, and the number of the second surface. 

INTRSECT (12,202,203) 


5.2.40 LGAMMA 


The LGAMMA function is the natural log of the GAMMA function and performs 
in the same manner as the IBM Fortran Function. 

Y = LGAMMA (X) 


5.2.41 LINE 


The LINE command is used to construct lines. The command has the same 
function as the line command in the Geometry Construction Menu The syntax is 
as follows: the number of the line, the point number of the first and second 
end points . 

LINE (11,1,2) 
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5 2 42 LOG 


The LOG is the Natural Logarithm function. and performs in the same 

manner as the Fortran Standard Function. 

Y = LOG (X) 

5.243 LOG 10 

The LOG 10 is the Common Logarithm function, and performs in the same 

manner as the Fortran Standard Function. 

Y = LOGIO (X) 

5.2.44 MAX 


The MAX finds the maximum of two numbers, and performs in the same manner 
as the Fortran Standard Function. 

HVAL = MAX (A.B) 


5.2.45 MIN 


The MIN finds the minimum of two numbers, and performs in the same manner 
as the Fortran Standard Function 

LVAL = MIN (C.D) 


5.2.46 MOD 


The MOD finds the remainder of the first arguement divided by the second 
arguement. It performs in the same manner as the Fortran Standard Function. 

RVAL = MOD (X.3) 
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C-SL 


5.2.47 MRGCURVE 

The MRGCURVE command is used to combine two previously defined curves 
The command has the same function as the merge curve command in the Geometrv 
Construction Menu. The syntax is as follows. curve number, the number of the 
first and second curves to be joined See the Geometry Construction Menu for 
further details. 

MRGCURVE <41,51,52) 


5.2.48 NOT 


The NOT command is used to negate whatever comes immediately after it, 
and is used like the Fortran equivalent. 

IF (NOT A = B) 


5.2.49 OR 


The OR command is a logical operator and is used as a connective between 
two expressions. It can be used exactly the same as in Fortran. 

IF (X < 10 OR Y = 2) 


5.2.50 PARABOLA 


The PARABOLA command is used to construct parabolas using three points 
The command has the same function as the Geometry Construction Menu. The 
syntax is as follows: curve number, the vertex point number, and the two end 

point numbers. 

PARABOLA <25,30,31,32) 


5.2.51 PARMCRV 


The PARMCRV command is used to construct a point from the parametric 
representation of a curve The command has the same function as the Geometry 
Construction Menu. The syntax is as follows. the point number, the number of 
the curve to be used, and how far along the B-spline to travel to define the 
point . 

PARMCRV (50,2, .25) 
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5.2.52 PARMSRF 


The PARMSRF command is used to construct a point from the parametric 
representation of a surface. The command has the same function as the 
Geometry Construction Menu The syntax is as follows the point number. the 
number of the surface to be used, and how far along the B-surface to travel to 
define the point The S direction is used first, and then the T direction. 

PARMSRF (51 .3, 5, .75) 


5.2.53 PLANE 


The PLANE command is used to construct a coordinate plane using one of 
the three coordinate axis as a fixed reference point. The command has the 
same function as the Geometry Construction Menu. The syntax is as ^follows, 
the surface number, the number of the axis (X = 1. Y =2, Z - 3), tne 
coordinate value of the axis, the two remaining coordinates needed to define 
the max and min bound for one axis, and the two coordinates needed to define 
the max and min bound for the remaining axis. 

PLANE (6. 3, 2, 3. 6, 4, 7) 

6 = surface number 

3 = Z axis 

2 = Z value is equal to 2 

3 = minimum X value 

6 = maximum X value 

4 = minimum Y value 

7 = maximum Y value 


5.2.54 PLANE4PT 


The PLANE4PT command is used to construct a plane from 4 end points. The 
command has the same function as the Geometry Construction Menu. The syntax 
is as follows: the surface number, and the numbers of the four end points. 

PLANE4PT (1.1. 2, 4, 3) 
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5.2.55 POINT 


The POINT command is used to construct a point from (x,y,z) coordinate 
data The command has the same function as the Geometry Construction Menu 
The syntax is as follows the point number, and the (x.y.z) coordinates. 

POINT (1 , .25. .5. 1 .25) 


5.2.56 PRINT 


The PRINT command is used to print out a prompt or message to the user of 
the recipe as it is being executed. The Recipe Processor prints out whatever 
text follows the PRINT statement. 

PRINT INPUT CIRCLE RADIUS FOR FIRST CIRCLE 


5.2.57 RADIAN 


RADIAN is a function that will convert angles from degrees to radian 
measure . 

RVAL = RADIAN (THETA) 


5.2.58 READ 


The READ command is used to read in data from the terminal . thereby 
allowing user input into the recipe as it is being processed The READ 
statement also has the capacity to place a condition in parenthesis that will 
examine the user input and if it is not within the specified range, will 
return to the user for another prompt for correct values 

READ THETA 
or 

READ THETA (THETA > 0 AND THETA <= 90) 

(In this case, when a value for theta is read in from the terminal, the 
processor will check to see that THETA is between 0 and 90 degrees. If the 
value is not within these limits, then it will prompt the user again for 
correct input . ) 
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5.2.59 REG2D4S 


The REG2D4S command is used to generate a 2 dimensional, 4 sided 
The command requires as input. the number of the region to be formed, the 
number of the surface. 4 curves, and 4 points that comprise the region 


REG2D4S (1,1. 1,2. 3, 4, 1.2, 3. 4) 


- name of region, 1 face surface 
4 edge curves, 4 vertex points 


5.2.60 REG3D 


The REG3D command is used to generate a 3 dimensional region. The 
command requires as input the number of the region to be formed, the numbers 
of the 6 surfaces, 12 curves, and 8 points that comprise the region. 


REG 3D (1,1, 2. 3. 4, 5. 6 

1.2,3,4.5.6,7.8.9,10,11.12 - 

' 1 , 2 , 3 , 4 . 5 , 6 , 7 , 8 ) 


name of region, 6 face surfaces 
12 edge curves 
8 vertex points 


5.2.61 REPEAT 


The REPEAT command is used to signal the start of a group of statements 
that are to be executed more than once. These multiple execution statements 
are nested between the REPEAT and UNTIL commands. 

REPEAT 


5.2.62 REVOLVE 


The REVOLVE command is used to construct surfaces of revolution. The 
command has the same function as the Geometry Construction Menu. The syntax 
is as follows: number of the surface, number of the axis to revolve around (1 
= X axis. 2 = Y axis, 3 = Z axis), the number of the curve to be revolved, and 
the number of degrees to revolve. 


REVOLVE (100.3,1,360) 
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5.2.63 RULEDSRF 


The RULEDSRF command is used to construct ruled surfaces The command 
has the same function as the Geometry Construction Menu The syntax is as 
follows the number of the surface, and the 2 curves to be ruled between. 

RULEDSRF (101,40,41) 


5.2.64 SETMODEL 


The SETMODEL command is used to set the max/min hounds on the geometric 
model that is constructed The syntax is the 3 (x.y.z) minimum coordinates, 
and the 3 (x.y.z) maximum coordinates. The coordinates can be either numbers, 
or variables , or expressions (eg. X+10). This command must be the first 
command in the recipe before any geometry is defined (i e. point, curves, 
surfaces, or regions). 

SETMODEL (0,0 ,0 ,X,Y,Z+5) 


5.2.65 SIGN 


The SIGN command is used to return the sign of the arguement in the 
parenthesis. It performs in the same manner as the Fortran Standard Function. 

S = SIGN (X) 


5.2.66 SIN 


The SIN is the Sine function, and performs in the same manner as the 
Fortran Standard Function. 

T = SIN (THETA) 

5.2.67 SINH 


The SINH is the Hyperbolic Sine function, and performs in the same manner 
as the Fortran Standard Function. 

Y = SINH (X) 
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5 2.68 SQRT 


The SQRT is the Square root function, and performs in the same manner as 
the Fortran Standard Function. 

SQ = SQRT ( X ) 


5.2.69 SUBSURFC 


The SUBSURFC command is used to construct a sub-surface patch from a 
parent surface that has been previously defined. The command has the same 
function as the Geometry Construction Menu. The syntax is as follows: the 
number of the surface, the number of the parent surface, and the 4 pairs of S 
and T parameters to define the boundary points of the sub-surface. Each of 
the S and T parameters can range from 0 to 1 , with one being the beginning of 
a curve, and a 1 being the end of a curve. See the Geometry Construction Menu 
documentation for further details and explanation. 

SUBSURFC (5. 1,1. 1.9. 1.1. -9. -9. 9) 


5.2.70 TAN 


The TAN is the Tangent function, and performs in the same manner as the 
Fortran Standard Function. 

Y = TAN (THETA) 

5.2.71 TANH 

The TANH is the Hyperbolic Tangent function, and performs in the same 
manner as the Fortran Standard Function. 

Z = TANH (X) 
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5.2.72 THEN 


The THEN command is used to specify the true condition of an IF 
statement. In the syntax. the THEN statement immediately follows the IF 
statement, and it precedes the line which contains the true condition 

IF (A = B) 

THEN 
X = 1 
END IF 


5.2.73 TRUNC 


The TRUNC command is used to truncate a value so that only the integer 
value remains 

A = TRUNC (B) 

5.2.74 UNTIL 


The UNTIL command is used to terminate a group of statements that are to 
be executed until a condition is satisfied. The UNTIL statement is the end 
counterpart of the REPEAT statement. 

UNTIL (X > 10) 


5.2.75 WRITE 


The WRITE command is used to print out information to the terminal. The 
PRINT statement will only print out what comes after it in the line, but the 
WRITE statement will print the value of a variable. 

WRITE XI 
WRITE Y1 
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60 DISCRETE MODEL FINALIZATION 


6 - 1 Introduct ion 


The Discrete Model Finalization module of ESMOSS allows the user to enter 
element property data, material property data (including temperature data), 
constraint data, and loading data to a previously discretized model 

The menu sequence to finalize a discrete model is as follows: 


MASTER MENU 

1 EXECUTE COMMAND FILE 

2 UTILITY COMMANDS 

3 GEOMETRY MODEL CONSTRUCTION 
* 4 DISCRETE MODEL CONSTRUCTION 


DEVELOP DISCRETE MODEL 

1 DISCRETIZE GEOMETRIC MODEL 3 INTERFACE DISCRETE MODELS 

2 DISCRETE MODEL PLOT * 4 FINALIZE DISCRETE MODEL 


FINALIZE DISCRETE MODEL 

1 DEFINE DISCRETE FILE 3 CHANGE FINALIZED DATA 

2 ADD FINALIZED DATA 4 END 


The following sections describe these four menu items in detail. 


6.2 Define Discrete File 

ESMOSS asks for a discrete file. Enter the fully qualified file name of 
the discrete model to finalize. Define Discrete File must be executed before 
finalized data can be added or changed. 


5 RECIPE ENGINE PARTS 

6 GENERATE ANALYSIS INPUT 

7 FILE HANDLER 

8 DONE 
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6.3 Add Finalized Data 


The menus under Add Finalized Data are 


ADD FINALIZED DATA 

1 ELEMENT PROPERTY DATA 

2 MATERIAL PROPERTY DATA 


ADD ELEMENT PROPERTY DATA 

1 SOLID FROM FILE 

2 SOLID FROM TERMINAL 

3 SURFACE FROM FILE 

4 SURFACE FROM TERMINAL 


ADD MATERIAL PROPERTY DATA 

1 ISOTROPIC MATERIAL FILE 

2 ISOTROPIC MATERIAL TERMINAL 

3 ORTHOTROPIC MATERIAL FILE 

4 ORTHOTROPIC MATERIAL TERMINAL 

5 TEMPERATURE REFERENCES FILE 


ADD CONSTRAINT DATA 

1 SINGLE POINT FILE 

2 SINGLE POINT TERMINAL 


ADD LOADING DATA 

1 LOAD AT NODE-FILE 

2 LOAD AT NODE-TERM 

3 MOMENT AT NODE-FILE 


3 CONSTRAINT DATA 

4 LOADING DATA 


5 AX I SYMMETRIC FROM FILE 

6 AX I SYMMETRIC FROM TERMINAL 

7 PROPERTY' POINTERS FILE 

8 PROPERTY' POINTERS TERMINAL 


6 TEMPERATURE REFERENCES TERMINAL 

7 TABULAR FUNCTION FILE 

8 TABULAR FUNCTION TERMINAL 

9 NODAL TEMPERATURES FILE 

10 NODAL TEMPERATURES TERMINAL 


3 MULTIPLE POINT FILE 

4 MULTIPLE POINT TERMINAL 


4 MOMENT AT NODE-TERM 

5 PRESSURE ON FACE-FILE 

6 PRESSURE ON FACE-TERM 


The following pages describe the specific information required from the 
user for each of these menu items. The user has the option of entering each 
type of data from a file or from the terminal. To enter data from the 
terminal. the user need only follow the directions printed at the terminal. 
For each set or record of data, integer data is asked for at the first prompt, 
and real data is asked for at the second prompt . To enter data from a file, 
the user must follow the file format given for each type of data The 
finalized data can be on one file or divided into several files as the user 
desires. The order of the data on the file(s) must follow the order of the 
menu items of file input selected. Any data entered interactively will not 
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interrupt this order 

Each set of data has an identification number associated with it ESMOSS 
takes care of this numbering automatically, beginning each set of each type of 
data with an identification number of one. 


There are certain real data values that are optional for NASTRAN These 
items are marked on the following pages. In these cases, blank values are 
valid Using ESMOSS, it's not possible to enter a blank value interactively 
if a number is expected It is possible to get around this A blank value in 
the IBM is stored as 0 25098 . To enter blank values from the terminal, the 
user must enter 0 25098 To enter blank values from a file, the user can 
enter either 0.25098 or 


6.3.1 Entering Element Property Data 
6.3.1 1 Entering Solid Element Data 

The user must enter two pieces of data for each set of solid element 

data . 

I) Element type (1-8 noded brick, 4-20 noded brick) 

J) Material identification number 

The maximum number of solid element sets is fifty. 


FILE FORMAT 

N N = Number of sets 

Il- J l 
! 2- J 2 

*N 1 J N 
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6.3 1.2 Entering Surface Element Data 


The user must enter eight pieces of data for each set of surface 

data . 

I) Element type (2 - triangular. 3 - quadrilateral) 

A) Material property orientation angle 
Bl) Membrane thickness at connection points point 1 
B2) " “ point 2 

B3) " " point 3 

B4) " point 4 

C) Default value for the membrane thickness 

D) Nonstructural mass per unit area 

Optional for NASTRAN 


The maximum number of surface element sets is one thousand. 


FILE FORMAT 

N N = Number of sets 

I 2 , A| ,B1 j , . . . B4 2 * C 2 » D 2 
I 2 .A 2 ,B1 2 . B4 2 ,C 2 .D 2 




e lement 
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6313 Entering Axi symmetric Element Data 


The user must enter three pieces of data for each set of axi svmmetr ic 
element data 

I) Element type (5 - constant strain triangular ring, 

6 - trapezoidal ring) 

J) Material i dent i f i cat ion number 

A) Material property orientation angle 
The maximum number of axisymmetric element sets is fifty. 


FILE FORMAT 

N N = Number of sets 

l 2 - j 2- a 2 


In- J N’ A N 
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6 3.1 4 Entering Element Property Pointers 


If the user wants to enter each element and its propertv pointer 
separately, the user must enter two pieces of data for each pointer. 

I) Element number 

J) Element property pointer 

The maximum number of element property pointers is five thousand. 


FILE FORMAT 
N 

ii.ji 

I 2’ J 2 


N = Number of sets 


1 N’ J N 


If the user wants to enter a range of elements for each property pointer, 
the user must enter three pieces of data for each pointer 

I) Beginning element number 

J) Ending element number 

K) Element property pointer 

The maximum number of element property pointers is five thousand 


FILE FORMAT 

N N = Number of sets 

Ij.Jl.K, 
l 2 - j 2- k 2 


j n- k n 
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6.3.2 Entering Material Property Data 


6 3.2.1 Entering Isotropic Material Properties 


The user must enter seven pieces of data for each set of 
material property data. 

A) Young's modulus 

B) Shear modulus 

C) Poisson's ratio 

D) Mass density 

E) Thermal expansion coefficient 

F) Thermal expansion reference temperature 

G) Structural element damping coefficient 

* Optional for NASTRAN . but A or B must be specified 


The maximum number of material property sets is fifty. 


FILE FORMAT 

j 4 N = Number of sets 

Af *Bj .Cj , . . . ,Gj 
A 2 B 2 C 2 - • ’ G 2 


a N • ®N • C N ' • °N 


l sot ropi c 
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6 3.2.2 Entering Orthotropic Material Properties 


The 

materia) 


user must enter 
property data 


thirteen pieces of data for each set 


of 


orthot.ropi c 


Al) 

A2 ) 

A3) 

B) 

Cl) 

C2 ) 

C3 ) 

D) 

El) 

E2) 

E3 ) 

F) 

G) 


Young s moduli <x direction) 

<o direction) 

(2 direction) 

Shear modulus 

Poissons ratios (coupled strain ratio in 
Mass density 

Thermal expansion coefficients (x) 

(o) 

(z) 

Thermal expansion reference temperature 
Structural element damping coefficient 


the xo direction) 
(zo direction) 
<zx direction) 


The maximum number of material property sets is fifty 


FILE FORMAT 

N N = Number of sets 

Al 2 , A2j Gj 


A1 N >A2 N °N 



6323 Entering Table References For Temperature-Dependent References 


The user must enter seventeen pieces of data for each set of 
references 

I) Material type (2 - isotropic material) 

(4 - orthotropic material) 

J) Material property identi f icat ion number 

) References to table identification numbers 

' »• 

K2) 


K15) 


The maximum number of sets of table references is fifty 


FILE FORMAT 

N = Number of sets 

, K15 ! 

,K15 2 


In- J N K1 N K15 N 


N 

1 ! . J ! ,K1 i , 

i 2 , j 2 .ki 2 . 


table 
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6. 3. 2. 4 Entering Tabular Functions For Generating Temperature-Dependent 
Material Proper t l es 


The user must enter two pieces of integer data plus the tabular 
for each function 

I ) Table type* 

J) Number of tabular entries 

Xj,Yj) Tabular entries 
Xj^Yj) 

(1 is the only value currently supported for 
NASTRAN interface) 

The maximum number of functions is fifty. 


FILE FORMAT 

N N = Number of functions 

1 1 - J i 

x n Y n 

X 21- Y 2l 


X J,1' Y J, 


X 12 • Y 12 
x 22 ’ Y 22 


X J 2 2 Y J 2 2 
‘N J N 
X 1N Y 1N 
X 2N • Y 2N 


x j n n- y j n n 


ent r i es 
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6325 Entering Nodal Temperatures 


If the user wants to enter one node per temperature, the user must enter 
two pieces of data for each temperature 

1 ) Node number 

A) Temperature 

The maximum number of nodal temperatures is nine thousand 


FILE FORMAT 

N = Number of temperatures 

lf-Al 

* 2- A 2 


! N’ A N 


If the user wants to enter several nodes per temperature, the user must 
enter three pieces of data for each temperature. 

I) Beg i nning node number 

J) Ending node number 

A) Temperature 

The maximum number of nodal temperatures is nine thousand 


FILE FORMAT 

N N = Number of temperatures 

ll.Jl.Ai 

12- J 2 A 2 


! N* J N A N 


6,3.3 Entering Constraint Data 


6331 Entering Single Point Constraints 

The user must enter three pieces of data for each set of single 
constraint data; 

I) Node number 

J) Component number 

A) Enforced displacement 

The maximum number of single point constraint sets is nine thousand 
FILE FORMAT 

N N = Number of sets 

1 i • J i >A i 
1 2- J 2 lA 2 

! n • ’ a n 


point 
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6. 3. 3. 2 Entering Multipoint Constraints 


The user must enter the number of nodes and the node numbers, 
numbers, and coefficients for each set of multiple point constraint 

1) Number of nodes 1<— I<=12 

J 2 _j ) Node number 
,Kj_j) Component number 

Aj_j ) Coefficient 

The maximum number of multiple point constraint sets is two hundred 


FILE FORMAT 

N N = Number of sets 

>1 

Jlj.Kji .A n 
J 21 * K 21 a 21 


Jljl-Kljl-Mjl 

x 2 

J 12 ’^12 ’ a 12 
j 22’ K 22 a 22 


«|i 2 2 K I 2 2 a I 2 2 

J 1N*^1N A 1N 
j 2N >K 2N- A 2N 


j i n n k i n n a i n n 


1 12 


component 

data 


6 3.4 Entering Loading Data 


6 3.4.1 Entering Concentrated Load At Node 


The user must enter six pieces of data for each set of load data at node 

I) Node number 

$ 

J) Coordinate system identification number 
A) Scale factor 

Bl) Components of vector measured in coordinate system defined by J 
B2) 

B3) 


’Optional for NASTRAN 

The maximum number of load sets is five hundred. 


FILE FORMAT 

N N = Number of sets 


1^ , J j » A i ,Blj , B2 j , B3 ^ 
1 2 ■ J 2 • A 2 ’ B 1 2 ■ B2 2 • B3 2 


*N • 3 N • A N ,Bl N ■ B2 N ■ B3 N 
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6.3 4.2 Entering Moment At Node 

The user must enter six pieces of data for each set of moment data at 

node 

1 ) Node number 

J) Coordinate system identification number 
A) Scale factor 

Bl) C omp onents of vector measured in coordinate system defined by J 
B2) 

B3) 

The maximum number of load sets is five hundred 


FILE FORMAT 

N N = Number of sets 

Ij . Jj ,Aj .Blj .B2! .B3J 
*2’ J 2 ,A 2 ,B1 2 ,B2 2 ,B3 2 


In * J N • a N ’ B1 N • B2 N • B3 N 


1 14 


6 3.4.3 Entering Pressure on Face of Element 


For each set of pressure data, the user has the choice of naming one 
element or more than one element If the user wants to name more than one 
element, he must enter six pieces of data for each set. 

I) Beginning element number 

J) Ending element number 

Al) Pressure at corner of face 
A2) 

A3) 

A4 ) 


The maximum number of load sets is five hundred. 


FILE FORMAT 

N N * Number of sets m 

M l M = Indicates number of elements named 

I j , J l , Al j . A2j , A3 j ,A4j 

m 2 

1 2 > J 2 ’ ^^2 1 A ^2 ’ a3 2 ■ A4 2 


% 

1 N ’ J N • A l N ’ a2 N ■ a 3 N ■ a4 N 

*M = 1 more than one element named 

If the user wants to name only one element per set, the user must enter 
seven pieces of data for each set 

I) Element number 
' * 

Jl) Node number of corner of face 

J2) Node number of corner opposite to Jl 

(must be blank for triangular surface) 
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A1 ) Pressure at corner of face 
A2 ) 

A3) 

A4 ) 


Required data for solid elements only 
*Enter -1 for blank node numbers 

The maximum number of load sets is five hundred. 


FILE FORMAT 


N 

Mi 

Ij.J1j.J2j.A1j. 

M 2 


% 

I N’ J1 N’ J2 N- A1 N a4 N 

= 0 only one element named 


N = Number of sets 

M » Indicates number of elements named 

> A4 i 
■ a4 2 
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6.4 Change Finalized Data 


The user can add to or change previously entered finalized data 

ESMOSS keeps a counter for each of the different types of finalized data 
so that the user can add more finalized data later that session or in a 
subsequent session if he desires Additional finalized data is entered the 
same way as regular finalized data. 

Every record of finalized data has an active flag associated with it. If 
the active flag is on, ESMOSS will process the record of data. If the active 
flag is off, ESMOSS will ignore the record of data.. The user can change 
previously entered data by turning off this active flag for the affected 
records and then entering the replacement data. In the special cases of 
element property pointers and nodal temperatures, there are no active flags 
Instead, the user can delete an entry or delete all of the entries or directly 
change the value of an entry. You may only change finalized data at the 
terminal, not from a file. 


The Change Finalized Data menu is. 


CHANGE FINALIZED DATA 

1 TURN FLAGS OFF 3 NODAL TEMPERATURES 

2 ELEMENT PROPERTY POINTERS 


These menu items are discussed in detail in the following sections 


6.4 1 Turning Active Flags Off 


TURN ACTIVE FLAGS OFF 

1 SOLID ELEMENT DATA 

2 SURFACE ELEMENT DATA 

3 AX I SYMMETRIC ELEMENT DATA 

4 MATERIAL PROPERTIES 

5 MATERIAL TEMPERATURE REFERENCES 


The user must answer the following questions for each type of finalized 
data in which he wishes to turn off some or all of the active flags. 

1) Do you want to turn off all the flags? 

If no 

2) How many flags do you want to turn off? (must be between 1 and 100) 


6 TABULAR FUNCTION DATA 

7 SINGLE POINT CONSTRAINT 

8 MULTIPLE POINT CONSTRAINT 

9 LOADING DATA 
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3) Enter the identification numbers of the flags to turn off 


H 4 2 Changing Element Property Pointers 


The user must answer the following questions 

1 ) Do you want to delete all of the property pointers? 

If no . 

2) Enter the element number, or enter 0 to stop. 

3) Enter 1 to change the pointer, or 2 to delete the pointer. 
If change pointer: 

4 ) Enter the new property pointer. 


6.4.3 Changing Nodal Temperatures 


The user must answer the following questions. 

1 ) Do you want to delete all of the nodal temperatures? 

If no . 

2) Enter the node number, or enter 0 to stop. 

3) Enter 1 to change the temperature, or 2 to delete the temperature. 
If change temperature 

4) Enter the new temperature. 


6.5 End 


End must be executed to get out of the Finalize Discrete Model module 

ESMOSS asks for the name of a discrete file, giving the user the option 
to default to the discrete file entered in Define Discrete File ESMOSS then 
asks if the user wants to save his finalized data. If yes. the finalized data 
will be saved on the discrete file. If no, the discrete file will not change, 
and any new finalized data is lost. 
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TO GENERATE NASTRAN INPUT 


T 1 Introduct 1 on 


The Generate NASTRAN Input module of ESMOSS produces a sequential file of 
data which can be used as an input deck to NASTRAN. This module produces the 
bulk data deck for NASTRAN, using the data on the discrete file specified by 
the user In addition, ESMOSS allows the user to enter card image records to 
the file before and after the bulk data deck either manually or from a file 
In this way the user can enter the Executive Control Deck and the Case Control 
Deck via ESMOSS if so desired. The sequential file may also be edited by the 
user after running ESMOSS and prior to submission to NASTRAN 

The menu sequence to generate NASTRAN input is. 


MASTER MENU 

1 EXECUTE COMMAND FILE 5 RECIPE ENGINE PARTS 

2 UTILITY COMMANDS * 6 GENERATE ANALYSIS INPUT 

3 GEOMETRY MODEL CONSTRUCTION 7 FILE HANDLER 

4 DISCRETE MODEL CONSTRUCTION 8 DONE 


GENERATE ANALYSIS INPUT 
1 NASTRAN 
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Running the NASTRAN Input Generator 


7 


721 Entering Required File Names 


ESMOSS asks for two files a discrete file and the NASTRAN input file 
For the discrete file, enter the fully qualified name of the file that 
contains the discrete model data to use to generate the NASTRAN bulk data 
deck. For the NASTRAN input file, enter the fully qualified name of the file 
where you want this module to write the NASTRAN input deck. 


7.2.2 Entering Additional Data Before The Bulk Data Deck 


ESMOSS allows the user to enter card image data records to the NASTRAN 
input file before and after ESMOSS generates the bulk data deck. 

After the user enters the required file names. ESMOSS asks the user if he 
wishes to enter any data to the NASTRAN input file before the bulk data deck. 
If no, skip the rest of this section. 

If yes, ESMOSS asks if the data is bn a file. If it’s not, ESMOSS asks 
the user to enter the number of card images and then to enter the card images 
When entering the card images manually, it's not necessary to blank fill the 
card after the data, a carriage return will do this. 

If the data is on a file, ESMOSS asks for the file name. The file must 
follow the following format. 


N N = Number of card images 

Card Image 1 


Card Image N 


Each card image is read with a format of eighty characters. 
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7.2.3 Generating The Bulk Data Deck 


After the user has the chance to enter data before the bulk data dec):. 
ESMOSS automatically generates the bulk data deck based on the information on 
the user's discrete file If there is any needed information not available on 
the discrete file. ESMOSS will ask the user for it. Whenever available, 
ESMOSS allows the user to use default values, but the user always has the 
opportunity to override the defaults. 

The user can enter the data via a file or manually. If the data is on a 
file, the user will be asked for a finalization data file name. If additional 
data is needed later in the generation of the bulk data deck, it can reside on 
the same finalization data file used previously in the session, or the data 
can reside on a different finalization data file, or it can be input manually. 


7.2.3. 1 Additional Data Needed For The Bulk Data Deck 


When the user wants to enter non-default data for an item on one card or 
several cards, he must answer the following questions. 

HOW MANY WILL NOT USE THE DEFAULT? » 

ARE YOU CHANGING THE DEFAULTS ON ALL OF THE CARDS? » 

I f yes . 

TO THE SAME VALUE? » 

I f yes . 

ENTER THE VALUE » 

If not the same value 

ARE THE VALUES ON A FILE? » 

I f yes . 

ENTER FILE NAME » 

The values from the file will now be read. 

If no : 

ENTER THE VALUES IN ORDER » 

If not changing the defaults on all of the cards. 

IS THE NON-DEFAULT DATA ON A FILE? » 

I f yes ; 

ENTER FILE NAME » 

The id’s and the values from the file will now be read. 

If no : 

ENTER THE IDS THAT DO NOT USE THE DEFAULT » 

ENTER THE VALUES IN ORDER » 

The file format is free format. The user can put as many or as few 
values on any line as he wants, using a maximum of eighty characters per line. 
If the defaults for an item on all of the cards are changing, the file should 
contain only the values If only selected cards are changing, the file should 
contain the id of the card, followed by the value, the id of the card, 
followed by the value, etc. 
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7.2-3 1 1 NASTRAN Cards That Require Additional Data 
7 2.311 1 MAT 1 Card 


The user can input the material coordinate system identification number 
or use the default which is the basic coordinate system. 


7.2.3112 TEMP Card 


There are no set numbers associated with the temperatures on the discrete 
file. ESMOSS asks the user if he wants to begin numbering the TEMP cards with 
1 or with some other number. 


7. 2. 3. 1.1. 3 PSHELL Card 


Many of the items on the PSHELL card need to be input by the user. These 
items do all have standard defaults that can be used. They are. 

1) Material identification number for membrane 
Default is no membrane or coupling stiffness 

2) Material identification number for bending 

Default is no bending, coupling, or transverse shear stiffness 

3) Bending stiffness parameter 
Defaul t is 1.0 

4) Material identification number for transverse shear 
Default is no transverse shear flexibility 

5) Transverse shear thickness divided by membrane thickness 
Default is .833333 

6,7) Fiber distances for stress computation 

Default is -1/2 ’ membrane thickness default 
and 1/2 * membrane thickness default 

8) Material identification number for membrane-bending coupling 
Default is no bending-membrane coupling 
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2.3.11.4 PSOLID Card 


Several of the items on the PSOLID card need to be input by the user 
They all have standard defaults that can be used. They are 

1) Identification number of material coordinate system 
Default is -1, which is the element coordinate system. 

2) Integration network 

Default is 2, which is 8 point for HEXA and 6 point for PENTA 

3) Location selection for stress output 

Default is 0, which is center point and vertex locations 


7 2.4 Entering Additional Data After The Bulk Data Deck 


After the bulk data deck has been generated ESMOSS prints a message, 
"Automatic generation of the bulk data deck is complete " Then the user is 
asked if he wishes to enter additional data to the end of the deck If yes, 
ESMOSS asks the user for the data the same way as entering data before the 
bulk data deck. See section 7.2.2. 
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APPENDIX A - ESMOSS Menu File 


1.8 

MASTER MENU 
EXECUTE COMMAND FILE 

3. 1 . 1 .2. 1 

ISSUE ESMOSS COMMANDS AND DATA FROM A FILE 
(THE COMMAND FILE IS A SEQUENTIAL TEXT FILE) 

1.1 

— ESMOSS COMMAND FILE REQUIRED — 

UTILITY COMMANDS 
1,1. 2. 8.0 

ESMOSS UTILITY COMMANDS: 

UTILITY COMMANDS 
MENU REDISPLAY 
HELP * * 

CHANGE SESSION PARAMETERS 
PLOT MODEL 

CHANGE PLOT PARAMETERS 
DONE 

GEOMETRY MODEL CONSTRUCTION 

1 . 1 .4.6.0 

CONSTRUCT A GEOMETRIC MODEL WITH: 

POINTS 

CURVES 

SURFACES 

REGIONS 

INTERFACE 2 GEOMETRIC MODELS 
DISCRETE MODEL CONSTRUCTION 

1.1.20.5.0 

DISCRETIZATION OPTIONS 

DISCRETIZE GEOMETRIC MODEL 
DISCRETE MODEL PLOT 
INTERFACE DISCRETE MODELS 
FINALIZE DISCRETE MODEL 
RECIPE ENGINE PARTS 
5.4, 100,8.2 

BUI LD THE GEOMETRY AND DISCRETIZE AN ENGINE 
PART FROM A PRE-PACKAGED SET OF INSTRUCTIONS 
RECIPES EXIST FOR THE FOLLOWING ENGINE PARTS: 

1 . DOVETA I L-PLATFORM 

2. BICONVEX AIRFOIL 

3. BURNER LINER 

4 . BROACH 

5. DISC 

12,1 

— RECIPE FILE REQUIRED — 

8 2 

RECIPE OUTPUT COMMAND FILE REQUIRED — 


124 


GENERATE ANALYSIS INPUT 
1 . 1 , 31 . 1.0 

NASTRAN INPUT IS CURRENTLY THE ONLY TYPE SUPPORTED 

FILE HANDLER 

00075020 

1 . 1 . 32 . 0 . 0 
00075030 
DONE 
00240804 

6 . 0 . 0 . 1.0 
00240904 

TERMINATE ESMOSS SESSION 
00241004 

2.7 

UTILITY COMMAND MENU 
UTILITY COMMANDS 
1 , 1 . 2 , 0,0 
MENU REDISPLAY 
3 , 10 ,- 1 . 1 ,0 

REDISPLAY CURRENT MENU 
HELP •* 

2 . 1 . 0 . 5.0 

SHOW HELP MESSAGES 

’HELP' - SHOW HELP MESSAGES FOR ALL 

COMMANDS IN THE CURRENT MENU 
’HELP N' - SHOW HELP MESSAGES FOR COMMAND 
NUMBER N OF THE CURRENT MENU 
CHANGE SESSION PARAMETERS 

1 . 1 . 3 . 0 . 0 
PLOT MODEL 

5 . 3 . 100 . 0 . 0 

CHANGE PLOT PARAMETERS 

1 . 1 . 12 . 0 . 0 
DONE 

6 . 0 , 0 , 1 ,0 

TERMINATE ESMOSS SESSION 

3.8 

CHANGE SESSION PARAMETERS MENU 
EXECUTE COMMAND FILE 

3 . 1 . 1 . 2. 1 

ISSUE ESMOSS COMMANDS AND DATA FROM A FILE 
(THE COMMAND FILE IS A SEQUENTIAL TEXT FILE) 

1.1 

— ESMOSS COMMAND FILE REQUIRED — 

TERMINATE COMMAND FILE 

3 , 1 .- 1 . 0,0 
ECHO FILE ON 
3 . 3 . 1 . 2, 1 

WRITE ESMOSS COMMANDS AND INPUT 
DATA TO A SEQUENTIAL TEXT FILE 
2.2 

— ECHO FILE REQUIRED — 

ECHO FILE OFF 
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3 . 3 .- 1 . 0,0 
DISPLAY MENUS 
3 . 2 . 1 . 0 . 0 
SUPPRESS MENUS 
3. 2.-1 .0.0 
DISPLAY PROMPTS 

3.5.1 .0. 0 
SUPPRESS PROMPTS 
3 . 5 .- 1 . 0.0 

4.7 

GEOMETRY MODEL CONSTRUCTION MENU 
DEFINE GEOMETRY FILE 

5 . 1 . 0 . 2.1 

SPECIFY A SEQUENTIAL FILE THAT 
CONTAINS AN ESMOSS GEOMETRY MODEL 
3 , 3 

— GEOMETRY FILE REQUIRED — 

POINT 

1 . 1 . 5 . 8.0 

DEVELOP GEOMETRY WITH POINTS 
BASIC DEFINITION (X.Y.2) 
POINT FILE 
PARAMETRIC CURVE 
PARAMETRIC SURFACE 
TWO CURVE INTERSECTION 
DELETE 

RENAME (NOT IMPLEMENTED) 

CURVE 

1 . 1 . 6 . 11,0 

DEVELOP GEOMETRY WITH CURVES. 
LINES 
CIRCLES 
CIRCULAR ARCS 
TWO SURFACE INTERSECTION 
POINT FILE 
FIT POINT SEQUENCE 
MERGE TWO CURVES 
PARABOLIC ARC 
DELETE 

RENAME (NOT IMPLEMENTED) 
SURFACE 
1.1.7.12.0 

DEVELOP GEOMTETRY WITH SURFACES. 
COORDINATE PLANE 
FOUR POINT PLANE 
CIRCULAR CYLINDER 
FRUSIRUM 
RULED SURFACE 
CUBIC BSURFACE 
SUBSURFACE PATCH 
POINT FILE 

SURFACE OF REVOLUTION 
DELETE 
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RENAME (NOT IMPLEMENTED) 

REGIONS 

1 . 1 .8.3.0 

DEVELOP GEOMETRY REGIONS (FOR A RELATIONAL MODEL) 
REGION 
DELETE 

INTERFACE GEOMETRIC MODELS 
5. 1 .9,2.2 

DEFINE 2 ND MODEL FILE 
DEFINE OUTPUT FILE 
-3,1 

— 2 ND GEOMETRY FILE REQUIRED — 

-3,2 

— DEFINE. GEOMETRY OUTPUT FILE — 

END 

7.1. 1.1.0 

CLOSE GEOMETRY FILE AND EXIT MENU 
5,6 

POINT MENU 

BASIC DEFINITION (X.Y.Z) 

5.1.101.2.0 

DEFINE A POINT USING AN X-COORDINATE , 

A Y-COORD I NATE AND A Z-COORDINATE 
POINT FILE 

5.1.102.1.1 

DEFINE A POINT FROM A FILE OF POINTS 

1.1 

— POINT FILE REQUIRED — 

PARAMETRIC CURVE 

5.1.103.1.0 

DEFINE A POINT ALONG A CURVE 
PARAMETRIC SURFACE 

5.1.104.1.0 

DEFINE A POINT ALONG A SURFACE 
TWO CURVE INTERSECTION 

5.1.105.1.0 

DEFINE A POINT AS THE INTERSECTION OF TWO CURVES 
DELETE 

5.1.106.1.0 
DELETE A POINT 
6.9 

CURVE MENU 
LINE 

5.1.201 .1.0 

DEFINE A CURVE AS A LINE 
CIRCLE 

5.1.202.1.0 

DEFINE A CURVE AS A CIRCLE 
CIRCULAR ARC 

5.1.203.1.0 

DEFINE A CURVE AS A CIRCULAR ARC 
TWO SURFACE INTERSECTION 

5.1. 204 .1.0 
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DEFINE A CURVE AS THE INTERSECTION OF TWO SURFACES 
POINT FILE 

5 . 1 . 205 . 1.1 

DEFINE A CURVE FROM A FILE OF POINTS 
1 . 1 

— POINT FILE REQUIRED -- 
FIT POINT SEQUENCE 

5 . 1 . 206 . 2.0 

DEFINE A CURVE BY FITTING THE CURVE ALONG 
A SEQUENCE OF POINTS 
MERGE TWO CURVES 

5 . 1 . 207 . 1.0 

DEFINE A CURVE BY JOINING TWO OTHER CURVES 
PARABOLIC ARC 

5 . 1 . 208 . 1 .0 

DEFINE A CURVE AS A PARABOLIC ARC 
DELETE 

5 . 1 . 209 . 1 .0 
DELETE A CURVE 
7,10 

SURFACE MENU 
COORDINATE PLANE 

5 . 1 . 301 . 1.0 

DEFINE A SURFACE AS A COORDINATE PLANE 
FOUR POINT PLANE 

DEFINeV SURFACE AS A FOUR POINT PLANE (OR WARPED SURFACE) 
CIRCULAR CYLINDER 

5 . 1 . 303 . 1 .0 

DEFINE A SURFACE AS A CIRCULAR CYLINDER 
FRUSTRUM 

5 . 1 . 304 . 1.0 

DEFINE A SURFACE AS A FRUSTRUM 
RULED SURFACE 

5 . 1 . 305 . 1.0 

DEFINE A SURFACE AS A RULED SURFACE 
CUBIC BSURFACE 

5 . 1 . 306 . 1.0 

DEFINE A SURFACE AS A CUBIC BSURFACE 
SUBSURFACE PATCH 

5 . 1 . 307 . 1 .0 

DEFINE A SURFACE USING A SUBSURFACE PATCH 
POINT FILE 

5 . 1 . 308 . 1.1 

DEFINE A SURFACE FROM A FILE OF POINTS 

1.1 

— POINT FILE REQUIRED — 

SURFACE OF REVOLUTION 

5 . 1 . 309 . 1.0 

DEFINE A SURFACE OF REVOLUTION 
DELETE 

5 . 1 . 310 . 1 .0 
DELETE A SURFACE 
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8.4 

REGION MENU 
THREE-D SIX SIDED 

5 . 1 . 401 . 0 . 0 

TWO-D THREE SIDED 

5 . 1 . 402 . 0 . 0 

TWO-D FOUR SIDED 

5 . 1 . 403 . 0 . 0 
DELETE 
5 . 1 . 404 , 1.0 
DELETE A REGION 
12,10 

CHANGE PLOT PARAMETERS MENU 
PLOT MODEL 

5 . 3 . 100 . 0 . 0 

DEFAULT VALUES 

5 . 3 . 200 . 0 . 0 

DISPLAY MODE 

5 . 3 . 301 . 0 . 0 

INTENSITY 

5 . 3 . 302 . 0 . 0 

TITLE 

5 . 3 . 305 . 0 . 0 

ROTATE 

1 . 1 . 13 . 0 . 0 

COLOR 

1 . 1 . 14 . 0 . 0 

WINDOW 

1 . 1 . 15 . 0 . 0 

LABEL 

1 . 1 . 16 . 0 . 0 

VISIBILITY RANGE 

1 . 1 . 17 . 0 . 0 

13.4 

ROTATION MENU 

RESET ROTATIONS (X=Y=Z=0) 

5 . 3 . 401 . 0 . 0 

SET AXIS ROTATIONS 

5 . 3 . 403 . 0 . 0 

INCREMENT AXIS ROTATIONS 

5 . 3 . 404 . 0 . 0 

SHOW CURRENT ROTATION 

5 . 3 . 405 . 0 . 0 
14.7 

COLOR MENU 
BLACK 

5 . 3 . 421 . 0 . 0 

RED 

5 . 3 . 422 . 0 . 0 

BLUE 

5 . 3 . 423 . 0 . 0 

GREEN 

5 . 3 . 424 . 0 . 0 



YELLOW 

5 . 3 . 425 . 0 . 0 
MAGENTA 

5 . 3 . 426 . 0 . 0 
CYAN 

5 . 3 . 427 . 0 . 0 
15.3 

WINDOWING MENU 
AUTO SCALE 

5 . 3 . 441 . 0 . 0 

SET WINDOW MIN-MAX 

5 . 3 . 442 . 0 . 0 

SHOW CURRENT WINDOWING 

5 . 3 . 443 . 0 . 0 
16.9 

LABELLING MENU 
PT-CRV-SURF ON 

5 . 3 . 461 . 0 . 0 
REGION ON 

5 . 3 . 462 . 0 . 0 
NODE ON 

5 . 3 . 463 . 0 . 0 
ELEMENT ON 

5 . 3 . 464 . 0 . 0 
PT-CRV-SURF OFF 

5 . 3 . 465 . 0 . 0 
REGION OFF 

5 . 3 . 466 . 0 . 0 
NODE OFF 

5 . 3 . 467 . 0 . 0 
ELEMENT OFF 

5 . 3 . 468 . 0 . 0 
ALL OFF 

5 . 3 . 469 . 0 . 0 
17,5 

VISIBILITY MENU 
ALL ON 

5 . 3 . 481 . 0 . 0 

ALL GEOMETRY OFF 

5 . 3 . 482 . 0 . 0 

ALL DISCRETIZED OFF 

5 . 3 . 483 . 0 . 0 
CHANGE GEOMETRY 

1 . 1 . 18 . 0 . 0 
CHANGE DISCRETIZED 

1 . 1 . 19 . 0 . 0 
13 8 

CHANGE GEOMETRY VISIBILITY MENU 
POINTS ON 

5 . 3 . 484 . 0 . 0 
POINTS OFF 

5 . 3 . 485 . 0 . 0 
CURVES ON 


130 


5.3.486.0. 0 
CURVES OFF 

5.3.487.0. 0 
SURFACES ON 

5.3.488.0. 0 
SURFACES OFF 

5.3.489.0. 0 
REGIONS ON 

5.3.490.0. 0 
REGIONS OFF 

5.3.491.0. 0 

19.4 

CHANGE DISCRETIZED VISIBILITY MENU 
NODES ON 

5.3.492.0. 0 
NODES OFF 

5.3.493.0. 0 
ELEMENTS ON 

5.3.494.0. 0 
ELEMENTS OFF 

5.3.495.0. 0 

20.4 

DEVELOP DISCRETE MODEL 
DISCRETIZE GEOMETRIC MODEL 

1.1.21 ,2,0 

GENERATES A FINITE ELEMENT MODEL FROM 
A REGIONALIZED GEOMETRIC MODEL 
DISCRETE MODEL PLOT 

5.2.4000.1 . 1 

PLOTS AN EXISTING DISCRETE MODEL 

4.1 

— DISCRETE FILE REQUIRED — 

INTERFACE DISCRETE MODELS 

1.1.33.1.0 

MERGE 2 DISCRETE MODEL FILES 
FINALIZE DISCRETE MODEL 

1.1.23.5.0 

ADD OR CHANGE ELEMENT PROPERTY DATA 
MATERIAL PROPERTY DATA 
CONSTRAINT DATA 
LOADING DATA 
TO DISCRETE MODEL. 

21.5 

DISCRETIZE GEOMETRIC MODEL 
DEFINE DISCRETIZING FILES 
5,2,1100,4,2 

THIS COMMAND MUST BE EXECUTED FIRST 
TWO FILES ARE DEFINED. 

GEOMETRY FILE 
„ DISCRETE MODEL FILE 

3.1 

— GEOMETRY FILE REQUIRED — 

4.3 
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— discrete file required — 

DISPLAY MODEL STATUS 

5.2. 1200.2.0 

DISPLAYS THE DISCRETIZATION STATUS OF 
EACH REGION OF THE GEOMETRIC MODEL 
DISCRETIZE REGION 
1 1 22 . 4,0 

DISCRETIZATION LIBRARY PROCEDURES 
EIGHT NODED BRICKS 
REGULAR TWO DIMENSIONAL REGION 
IRREGULAR TWO DIMENSIONAL REGION 
REGIONALIZED MODEL PLOT 

5.2.1500.3.0 

PLOTS THE MODEL SHOWING NODES AND 
ELEMENTS FOR DISCRETIZED REGIONS AND 
EDGES FOR UNDISCRETIZED REGIONS 
END 

7.2 . 1300.1 .0 

CLOSE DISCRETE FILE AND EXIT MENU 
22.3 

DISCRETIZE REGION 
EIGHT NODED BRICKS 

5.2.1401.2.0 

DISCRETIZE A THREE DIMENSIONAL REGION 
WITH EIGHT NODED BRICK ELEMENTS 
REGULAR 2— D REGION 

5.2.1451 .3.0 

DISCRETIZE A TWO DIMENSIONAL REGION 
WITH OPPOSITE EDGES HAVING AN EQUAL 
NUMBER OF NODES 
IRREGULAR 2-D REGION 

5.2. 1452.3.0 

DISCRETIZE A TWO DIMENSIONAL REGION 
WITH OPPOSITE EDGES HAVING AN UNEQUAL 
NUMBER OF NODES 
23,4 

FINALIZE DISCRETE MODEL 
DEFINE DISCRETE FILE 

5.2.7600. 1 . 1 

THIS COMMAND MUST BE EXECUTED FIRST 
4.3 

— DISCRETE FILE REQUIRED — 

ADD FINALIZED DATA 

1.1.24.4.0 

ADD ELEMENT PROPERTY DATA 
MATERIAL PROPERTY DATA 
CONSTRAINT DATA 
LOADING DATA 
CHANGE FINALIZED DATA 

1.1.29.3.0 

THE USER CAN l) TURN ACTIVE FLAGS OFF 

2) CHANGE ELEMENT PROPERTY POINTERS 

3) CHANGE NODAL TEMPERATURES 
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END 

7 . 2 . 7700. 1 , 1 

WRAP UP FINALIZATION AND EXIT MENU 

4.3 

— DISCRETE FILE REQUIRED — 

24.4 

ADD FINALIZED DATA 
ELEMENT PROPERTY DATA 

1 . 1 . 25 . 4.0 

SOLID ELEMENT DATA 
SURFACE ELEMENT DATA 
AXISYMETTRIC ELEMENT DATA 
ELEMENT PROPERTY POINTERS 
MATERIAL PROPERTY DATA 

1 . 1 . 26 . 1.0 

MATERIAL PROPERTIES AND TEMPERATURE DATA 
CONSTRAINT DATA 

1 . 1 . 27 . 1.0 

SINGLE POINT AND MULTI POINT 
LOADING DATA 

1 . 1 . 28 . 3.0 
LOAD AT NODE 
MOMENT AT NODE 
PRESSURE ON FACE 
25,8 

ADD ELEMENT PROPERTY DATA 
SOLID FROM FILE 

5 . 2 . 7111 . 0 . 1 

13.1 

— FINALIZATION DATA FILE REQUIRED — 
SOLID FROM TERMINAL 

5 . 2 . 7112 . 0 . 0 
SURFACE FROM FILE 

5 . 2 . 7121 . 0 . 1 

13,1 

— FINALIZATION DATA FILE REQUIRED — 
SURFACE FROM TERMINAL 

5 . 2 . 7122 . 0 . 0 

AX I SYMMETRIC FROM FILE 

5 . 2 . 7131 . 0 . 1 

13,1 

— FINALIZATION DATA FILE REQUIRED — 

AX I SYMMETRIC FROM TERMINAL 

5 . 2 . 7132 . 0 . 0 
PROPERTY POINTERS FILE 

5 . 2 . 7141 . 0 . 1 

13,1 

— FINALIZATION DATA FILE REQUIRED — 
PROPERTY' POINTERS TERMINAL 

5 . 2 . 7142 . 0 . 0 
26,10 

ADD MATERIAL PROPERTY DATA 
ISOTROPIC MATERIAL FILE 
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5 . 2 . 7211 . 0 . 1 

13.1 

— FINALIZATION DATA FILE REQUIRED — 
ISOTROPIC MATERIAL TERMINAL 

5 . 2 . 7212 . 0 . 0 

ORTHOTROPIC MATERIAL FILE 

5 . 2 . 7213 . 0 . 1 

13.1 

— FINALIZATION DATA FILE REQUIRED — 
ORTHOTROPIC MATERIAL TERMINAL 

5 . 2 . 7214 . 0 . 0 

TEMPERATURE REFERENCES FILE 

5 . 2 . 7221 . 0 . 1 

13.1 

— FINALIZATION DATA FILE REQUIRED — 
TEMPERATURE REFERENCES TERMINAL 

5 . 2 . 7222 . 0 . 0 
TABULAR FUNCTION FILE 

5 . 2 . 7223 . 0 . 1 

13.1 

— FINALIZATION DATA FILE REQUIRED — 
TABULAR FUNCTION TERMINAL 

5 . 2 . 7224 . 0 . 0 

NODAL TEMPERATURES FILE 

5 . 2 . 7231 . 0 . 1 

13,1 

— FINALIZATION DATA FILE REQUIRED — 
NODAL TEMPERATURES TERMINAL 

5 . 2 . 7232 . 0 . 0 
27,4 

ADD CONSTRAINT DATA 
SINGLE POINT FILE 

5 . 2 . 7311 . 0 . 1 

13.1 

— FINALIZATION DATA FILE REQUIRED — 
SINGLE POINT TERMINAL 

5 . 2 . 7312 . 0 . 0 
MULTIPLE POINT FILE 

5 . 2 . 7321 . 0 . 1 

13.1 

— FINALIZATION DATA FILE REQUIRED — 
MULTIPLE POINT TERMINAL 

5 . 2 . 7322 . 0 . 0 
28,6 

ADD LOADING DATA 
LOAD AT NODE-FILE 

5 . 2 . 7411 . 0 . 1 

13.1 

— FINALIZATION DATA FILE REQUIRED — 
LOAD AT NODE-TERM 

5 . 2 . 7412 . 0 . 0 
MOMENT AT NODE-FILE 

5 . 2 . 7421 . 0 . 1 
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13.1 

— FINALIZATION DATA FILE REQUIRED — 

MOMENT AT NODE-TERM 

5 . 2 . 7422 . 0 . 0 
PRESSURE ON FACE-FILE 

5 . 2 . 7431 . 0 . 1 

13. 1 

— FINALIZATION DATA FILE REQUIRED — 

PRESSURE ON FACE-TERM 

5 . 2 . 7432 . 0 . 0 
29.3 

CHANGE FINALIZED DATA 
TURN FLAGS OFF 
1 . 1 . 30 . 6.0 

ELEMENT PROPERTY DATA 
MATERIAL PROPERTIES 

MATERIAL TEMPERATURE DEPENDENT REFERENCE DATA 
TABULAR FUNCTION DATA 
CONSTRAINT DATA 
LOADING DATA 

ELEMENT PROPERTY POINTERS 

5 . 2 . 7504 . 0 . 0 
NODAL TEMPERATURES 

5 . 2 . 7508 . 0 . 0 
30.9 

TURN ACTIVE FLAGS OFF 
SOLID ELEMENT DATA 

5 . 2 . 7501 . 0 . 0 
SURFACE ELEMENT DATA 

5 . 2 . 7502 . 0 . 0 

AX I SYMMETRIC ELEMENT DATA 

5 . 2 . 7503 . 0 . 0 
MATERIAL PROPERTIES 

5 . 2 . 7505 . 0 . 0 

MATERIAL TEMPERATURE REFERENCES 

5 . 2 . 7506 . 0 . 0 
TABULAR FUNCTION DATA 

5 . 2 . 7507 . 0 . 0 

SINGLE POINT CONSTRAINT 

5 . 2 . 7509 . 0 . 0 

MULTIPLE POINT CONSTRAINT 

5 . 2 . 7510 . 0 . 0 
LOADING DATA 

5 . 2 . 7511 . 0 . 0 

31 . 1 

GENERATE ANALYSIS INPUT 

NASTRAN 

5 . 5 , 100 , 1.2 

GENERATE THE INPUT DECK FOR NASTRAN 

4.1 

— DISCRETE FILE REQUIRED — 

11.3 

— NASTRAN INPUT FILE REQUIRED — 
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32.6 

00239107 

FILE HANDLER MENU 
00239106 

DIRECTORY DISPLAY 
00239109 

4.1.10.0 
00239110 

ADD DIRECTORY ENTRY 
00239111 
4, 1 ,2. 1 .0 
00239112 

ADD A FILE ENTRY TO THE FILE DIRECTORY 
00239113 

DELETE DIRECTORY ENTRY 

00239114 

4. 1 ,3. 1 .0 

00239115 

DELETE A FILE ENTRY FROM THE FILE DIRECTORY 

00239116 

DISPLAY LUT 

00239117 

4 , 0 . 1 . 1 .0 

00239118 

DISPLAY LOGICAL UNIT TABLE 

00239119 

OPEN FILE 

00239120 

4. 0. 2. 0.0 
00239121 
CLOSE FILE 
00239130 

4. 0. 3. 0.0 
00239140 
33,4 

INTERFACE DISCRETE MODELS 

DEFINE MODEL FILES 

5.2,6100,2,2 

DEFINE 1 ST FILE 

DEFINE 2 ND FILE 

4.3 

— DISCRETE FILE REQUIRED — 

-4.3 

— 2ND DISCRETE FILE REQUIRED -- 
MOVE NODES 

5.2.6200.1 .0 

CHANGE NODE COORDINATES 
ELIMINATE COMMON NODES 

5.2.6300.1 .0 

ELIMINATE DUPLICATE NODES 
END 

7.2. 6400 .2.1 
WRITE OUTPUT FILE 
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DEFINE OUTPUT FILE 
- 4.3 

— DEFINE DISCRETE OUTPUT FILE 



APPENDIX B - ESMOSS RECIPE? 


Burner Liner 
Disk 

Broach 

Airfoil 

Dovetail -Platform 
Air-Cooled Turbine Blade 
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Burner Liner Nugget 


Geometric Model 



Burner Liner Nugget 


Discrete Model 
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» oMPU.ToR 1.1NFT. N' •=•11 K! 


r -- NUGGET INPUT DATA - 

r - USER PROMPT:: - 

<* 

c 

PRINT X STARTING POINT < 1 ) = 

(’READ STARTX 
STARTX=0 

C 

PRINT Y STARTING POINT (2) = 

(’READ STARTY 
STARTY=5 

(’ 

PRINT LENGTH OF BOTTOM LINE (3) = 
(’READ LENGTH 1 
LENGTH 1 = 4 08 

(’ 

PRINT LENGTH L2 (4) = 

(’READ LENGTHS 
LENGTHS =8 
(*' 

PRINT LENGTH L3 (5) = 

(’READ LENGTH3 
LENGTH3= 4 
C 

PRINT LENGTH L4 (6) = 

(’READ LENGTH4 
LENGTH4= 5 

(* 

PRINT LENGTH L5 (7) = 

(’READ LENGTH5 
LENGTH5 = 3 2 
C 

PRINT LENGTH L6 (8) = 

(’READ LENGTH6 
LENGTH6= 1 77 

(* 

PRINT LENGTH L7 CO - 
(’READ LENGTH7 
LENGTH7= 1.425 

(’ 

PRINT LENGTH L8 (10) = 

(’READ LENGTH8 
LENGTH8=4 5 

(’ 

PRINT THICKNESS T1 (11) = 

(’READ THICK 1 
THICK! = 8 
C 

PRINT THICKNESS T2 (12) = 
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(•READ THICK:? 

THH'K:? ~ 55 

\ ' 

PRINT THJCKNt.-.- Ti H t - 
(’READ THICK? 

THICK3=55 

(' 

PRINT THICKNESS T4 ( 14 ) = 
(’READ THICK4 
THICK4 = .55 

(* 

PRINT THICKNESS T5 (15) = 
(’READ THICK5 
THICK5=1 003 

(’ 

PRINT THETA 1 116) = 

(’READ THETA 1 
THETA 1=90 

THETA 1 =RADIAN< THETA 1 ) 

<* 

PRINT THETAS (17) = 
(’READ THETAS 
THETAS =60 

THETA2 = RAD1AN( THETAS) 

(’ 

PRINT THETA3 (18) = 
(’READ THETA 3 
THETA3= 1 80 
THETA3 = RADIAN(THETA3) 

(’ 

PRINT RADIUS Rl (19) = 
(’READ RADIUS 1 
RADIUS 1 = 1 0 
C 

PRINT RADIUS RS (SO) = 
(’READ RADIUS3 
RADIUS2= 1 0 

(* 

PRINT RADIUS R3 (21> = 
(’READ RADIUS 3 
RADIUS? = 1.15 

(’ 

PRINT RADIUS R4 (SSi = 
(’READ RADIUS4 
RAD1US4= 75 
C 

PRINT RADIUS R5 (23) = 
(’READ RADIUS5 
RADIUS5=6 

C 

PRINT RADIUS R6 (24) = 
(’READ RADIUS6 
RADIUS6= 1.0 
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( ' 

PRINT ALPHA A1 <35 > ^ 

CKKM- ALPHA I 
A LI 'HA J - u 

ALPHA 1= RADI AN< ALPHA 1 I 

r 

PRINT ALPHA A 2 (26) = 

(’READ ALPHA2 
ALPHA2=90 

ALPHA2=RADIAN(ALPHA2) 

<* 

PRINT PHI PI (2?) = 

(•READ PH11 
PHI 1 = 15 

PHI1=RADIAN(PHI1) 

C 

C 

(• - BURNER LINER NUGGET POINT DEFINITIONS - 

(• USE THE FOLLOWING EQUATIONS TO DEFINE 

(• ESMOSS POINT VALUES (2-D) 

<* 

(* X- = X COORDINATE VALUE 
(• Y- = Y COORDINATE VALUE 

(* A- = ANGLE REQUIRED TO REACH THE POINT FROM THE PREVIOUS POINT 

C 

PI = 3. 1415927 

C 

XI = STARTX 
Y1 = START)’ 

A1 = ALPHA 1 

C 

(* 

XTEMP = (THICK 1 /'2)*SIN(P1 + A1 ) 

YTEMP = (THICK 1 / 2 > * < 1 - C0S(P1 + A1>) 

X2=XTEMP*C0S(A1)-YTEMP*SIN<A1) + X1 
Y2=XTEMP’SIN(A1) + YTEMP*C0S(A1 ) + Yl 
A2 = A1 

<’ 

C 

X3 =X2 + LENGTH2 ’ COS< A2 ) 

Y3=Y2+ LENGTHS* SlNiA2> 

A3 = A2 

C 

X4 = X1 +(X3-X2 ) 

Y4=Y1 +(Y3-Y2) 

A4=A1 

<* 

SEGMENT= ( LENGTH 1 -LENGTH2-LENGTH3)/3 
X5=X4 + SEGMENT* C0S(A4) 

Y5 = Y4 + SEGMENT* SIN(A4) 

A 5= A 4 

(’ 


X8=X5 + SEGMENT*COS(A5) 
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ORIGINAL PAGE iS 
OF POOR QUALITY 



Y 8 = Y 5 - SEGMENT’ SINi AY ) 

A 8 ~ A ‘ 

t ■ 

v 9-XtH s'EGMENTToSi A 8 » 

Y9 = Y8 + SEGMENT' SIN (A8» 

A9 = A8 

( • 

X 1 2 = X9+ LENGTH 3 ’ C03< A9 ) 

Y12 = Y9 + LENGTH3*SIN< A9) 

A12=A9+(PI-ALPHA2) 

(’ 

Xl l=X12 + THICK2’COS(A12l 
Y11=Y12 + THICK2’SIN(A12> 

A11=A12+ALPHA2 

C 

X10=X11+LENGTH3’COS(A1 1) 

Y10=Y1 1 +LENGTH3*SIN(A1 1 ) 

A10=A1 1 

(* 

C 

XTEMP=RAD1US1»SIN(THETA1,4> 

YTEMP=RADIUSl’(l-C0S(THETAl/4)) 

X35=XTEMP*COS(A3)-YTEMP’SIN(A3)+X3 
Y35=XTEMP’SIN(A3) + YTEMP*COS(A3)+Y3 
A35=A3+THETA 1 4 

C 

X6 =XTEMP*COS<A35)-YTEMP*SIN(A35)+X35 
Y6 =XTEMP*SIN(A35) + YTEMP*COS(A35)+Y35 
A6=A35+THETA1 4 

<* 

X38=XTEMP*COS(A6)-YTEMP*SIN<A6)+X6 
Y38=XTEMP’SIN(A6H-YTEMP*COS(A6) + Y6 
A38=A6+THETA1 4 
C 

X14=XTEMP»COS(A38)-YTEMP*SIN(A38) + X38 
Y14=XTEMP*SIN(A38) + YTEMP*COS(A38>+Y38 
A14=A38+THETA1 4 

<* 

C 

AA=A14— AlO 
IF IAA ■ 0) 

THEN AA = AA-( 2'Pl I 
ENDIF 

<* 

(* 

XTEMP=-RADIUS2*SIN(AA/4) 

YTEMP= -RADIUS2*( 1 -C0S(AA/4)) 

X36 = XTEMP*C0S(A 10)- YTEMP*SIN(A10) + X10 
Y36=XTEMP’SIN(A10)+YTEMP*COS(A10)+Y10 
A36 = A10 + AA/4 

(* 

X7 = XTEMP*COS(A36)-YTEMP*SIN(A36) + X36 ORIGINAL jrf : 

Y7 =XTEMP*SIN(A36)+YTEMP*C0S(A36)+Y36 OF POOR 
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cm v 



AT = A ?.() ’ AA -I 


•; XT1/M! ' 1 < '• ».-< AT t - VTEMl" . 1N< AT > t XT 
V . J .T = XTEM I” .'IN' AT YTE Ml” CO.* (A 7 » + Y7 
A 37 = A i + AA 4 

< ' 

( ’ 

Xl3 = XTEMP*COS(A37)-YTEMP’SIN(A37> + X37 
Yl3=XTEMP*SIN(A37)+YTEMP’COS(A37)+Y37 
A 1 3 = A37 + AA/ 4 

<’ 

X15=X14 + LENGTH4’C0S(A14) 

Y15=Y14 + LENGTH4*SIN< A14) 

A15=A14 

C 

D1=(X13-X15)’SIN(A15> 

D2=(Y13— Y15)*C0S(A15) 

AT=ABS(D1-D2) 

<* 

X16=X15-THICK4’C0S<A15) 

Y16=Y15-THICK4*SIN(A15) 

A16=A15 

XTEMP=(-AT/2)’SIN( -PI) 

YTEMP=( -AT/2)’( 1 -COS(-PI)) 

X16=XTEMP’COS(A16)-YTEMP*SIN(A16» + X16 
Y16=XTEMP*SIN(A16) + YTEMP*C0S(A16)+Y16 
A16=A15 

C 

XTEMP= -RADIUS3*S1N( -Pl/4) 

YTEMP= -RADIUS3M 1 -COS(-PI./4» 

X40=XTEMP , C0S(A15)-YTEMP’S1N(A15) I-X15 
Y40=XTEMP*SIN(A15) + YTEMP*C0S(A15) + Y15 
A40=A15-(P1 4) 

(' 

X18=XTEMP*COS(A40)- YTEMP*SIN(A40)+X40 
Y18=XTEMP*SIN(A40)+YTEMP*C0S(A40)+Y40 
A18 = A40 — (Pl/4) 

(* 

C 

XTEMP=-RADIUS3*S1N<-PI 4) 
YTEMP=-RAD1US3’< l-COS(-P) 4)> 
X39=XTEMP*COS(Al G)-YTEMP‘S1N( A 1<>> • X16 
Y39 =XTEMP* SIN( A 1 6 )+ YTEMP ’ (’()S( A IH » * Y 1 6 
A39=A16-(PI/4) 

(* 

X17=XTEMP*COS(A39)-YTEMP’SIN(A39) + X39 
Y17=XTEMP*S1N(A39) + YTEMP , C03(A39) + Y39 
A17=A39-(PI/4) 

C 

<* 

X19=X18 + LENGTH5*COS(A18) 

Y19=Y18 + LENGTH5*SIN(A18) 

A19=A18 
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X20-X 1 T 4 LENGTH o ' fOS< A 1 7 * 

Y:.0- V 1 - LF.NgTHi ‘ SIN< A 1 7 ) 

A ; 0 - A 1 7 

( ' 

( ' 

XTEMP=-RADIUS4*SIN< -THETA? 6i 
YTEMP= -RADIUS4' ( 1 -COS< -THETA3 6)) 

X4 1 =XTEMP*COS(A20)- YTEMP*SIN(A20) + X20 
Y41=XTEMP*SIN(A20) + YTEMP*COS(A20) + Y20 
A4 1 =A20— THETA3/6 

(* 

X2 1 =XTEMP*C0S(A4 1 )- YTEMP*SIN( A4 1 ) + X4 1 
Y21 =XTEMP*SIN(A4 1 ) + YTEMP*C0S(A4 1 ) + Y4 1 
A2 1 =A4 1 — THETA3 / 6 

(’ 

X43=XTEMP*C0S<A21)-YTEMP*S1N(A21) + X21 
Y43=XTEMP*SIN(A2 1 ) + YTEMP’C0S(A2 1 ) + Y21 
A43=A21 -THETA3/6 

<* 

X24=XTEMP*C0S<A43)-YTEMP*SIN(A43)+X43 
Y24=XTEMP*SIN(A43)+YTEMP*COS(A43) + Y4 3 
A24=A43— THETA3/6 

(* 

X44=XTEMP*C0S(A24)-YTEMP*SIN(A24) + X24 
Y44=XTEMP*SIN(A24) + YTEMP’COS(A24) + Y24 
A44 = A24 - THETA3 /6 

<* 

X27=XTEMP»C0S(A44)-YTEMP*SIN(A44) + X44 
Y27=XTEMP*SIN(A44.) + YTEMP’C0S(A44) + Y44 
A27 = A44 - THETA3/6 

<* 

(’ 

X28=X27 + LENGTH7*C0S( A27 ) 

Y28 = Y27 + LENGTH7 • SIN < A27 ) 

A28=A27 

C 

<* 

XTEMP = (THICK3/2)’SIN(PI 2) 
YTEMP=(THICK3 2>M 1 -COS<PI /2» 
X45=XTEMP*C0S(A28)-YTEMP*S1N<A28 » + >:.?< 
Y45=XTEMP*SIN(A28) + YTEMP’COSl A28) + Y2u 
A45=A28 + (PI/2) 

(* 

X29=XTEMP’COS(A45)-YTEMP*SIN(A45) + X45 
Y29=XTEMP’SIN(A45)+YTEMP*COS(A45) + Y45 
A29=A45 + (PI/2) 

C 

C 

X34=X29 + LENGTH8*COS{ A29) 

Y34=Y29 + LENGTH8’SIN(A29) 

A34=A29 

<* 
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>;TEMP- - RADIUS V SIN) - THETAS. 2 ) 

YTKMP- - RAPP ’ 'll t i>.'( - THETA:: .'.’H 
a-I = ::TEM 1 • ’ i <)S( A 1 i - V TEMP‘*!N< A I ' 

Y4 2 = XTEM P * SI N< A 1 9 i-t- YTF. MF' ’ COS) A 1 9 > + Y 1 9 
A42 = A1 9-THETA2.. 2 

( ’ 

X22=XTEMP*COS(A42 )-YTEMP’SIN< A42) + Y42 
Y22 = XTEMP*SIN(A42) + YTEMP*COS(A42) + Y42 
A22.= A4 2 - THETA2 / 2 

(* 

C 

XTEMP = (THICK5/2)*SIN(PI) 

YTEMP=(THICK5/2)*( 1 -COS(PI)) 
X33=XTEMP*COS(A34)-YTEMP’SIN(A34) + X34 
Y33 = XTEMP*SIN(A34) + YTEMP*COS(A34) + Y34 
A33=A34 + PI 

C 

(» A FEW CRITICAL POINTS NEED EXTRA CALCULATIONS 

C 

CS1 =COS(A22) 

CS2 = COS(A33) 

TA1 =TAN(A22) 

TA2=TAN(A33) 

<* 

IF (CS1 = 0.0) 

THEN 

X23=X22 

ENDIF 

C 

IF (CS2 = 0 0) 

THEN 

X23=X33 

ENDIF 

(* 

CS3=CS1*CS2 

(*IF (CS1 = 0.0 AND CS3 = 0.0) 

<* THEN 

Y23=Y33+(X23-X33)*TA2 
(* ELSE 

<*Y23=Y22 + (X23-X22)*TA1 
(• ENDIF 

IF <X23=0.0) 

THEN 

X23=Y33— Y22 + (X22*TA1 1 -(X33*TA2) 

X23=X23/(TA1 -TA2) 

ENDIF 

(* 

A23=A22 
YA=A34-A22 
IF (YA < 0) 

THEN 

YA=YA+(2*PI) 
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ENDIF 


c 

l'l • AH.'(KADIl : .'fi TAN n PI - YA > 2 > t 

>...*3 -Di *ro.>< A.:3t 

Y23= Y23-D1 ’ SINIA23) 

A23=A23 

< • 

< • 

XTEMP=RADIUS6*SIN(YA/2) 

YTEMP=RADIUS6*( 1 -C0S(YA/2)) 
X46=XTEMP*COS(A23)-YTEMP’SIN<A23) + X23 
Y46=XTEMP*SIN(A23)+YTEMP*COS(A23}+Y23 
A46=A23 + (YA/2) 

(* 

X32=XTEMP*C0S(A46)-YTEMP*SIN(A46) + X46 
Y32=XTEMP’SIN(A46) + YTEMP’C0S(A46) + Y46 
A32=A46+(YA./2) 

(* 

(* 

X26=X29+(X27-X28) 

Y26=Y29 + (Y27 -Y28) 

A26=A29 

<* 

<* A FEW CRITICAL POINTS NEED EXTRA CALCULATION 
<* 

AX=X26-X29+X33-X32 
AY=ABS(Y26— Y29+Y33-Y32) 

AZ=COS(A29) 

<* 

IF (AZ =0 0) 

THEN 

NULL=0 

ELSE 

AY=ABS<AX./AZ) 

ENDIF 

C 

X25=X26 + ((LENGTH8 — AY) '3)*COS(A261 
Y25 = Y26 + (( LENGTHS - AY > 3 >' S1N< A 26 > 

A25=A26 

C 

X30 = X25 + <(LENGTH8- AY) 3)*COS(A25) 
Y30=Y25+((LENGTH8— AY)/3)*SIN(A25 ) 

A30=A25 

C 

X31=X30+((LENGTH8-AY)/3)*COS(A30) 

Y31 =Y30+((LENGTH8-AY)/3)*SIN(A30) 

A31=A30 

C 

<* 

(* - NUGGET POINT DEFINITIONS - 

(• DEFINE ESMOSS POINTS 

<* 

<’ 
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f-ETMODEL <STARTX.STARTY.IJ C-.34 ■> . 1MY19 + 1M)> 
1'OlNT i 1 ..-TAKTX.STARTY 0* 

point Y...U) 

POINT 1 3.X3.Y3.0) 

POINT (4.X4.Y4.0) 

POINT <5 X5.Y5.0) 

POINT (6.X6.Y6.0) 

POINT (7.X7.Y7.0) 

POINT (8.X8.Y8.0) 

POINT (9.X9.Y9.0) 

POINT (10.X10.Y10.0) 

(’ 

POINT (1 1.X1 l.Yl 1,0) 

POINT (12.X12.Y12.0) 

POINT ( 13.X13.Y1 3,0) 

POINT (14.X14.Y14.0) 

POINT ( 1 5.X15.Y1 5.0) 

POINT (16.X16.Y16.0) 

POINT (17.X17.Y17.0) 

POINT (18.X18.Y18.0) 

POINT (19.X19.Y19.0) 

POINT (20.X20.Y20.0) 

POINT (21.X21.Y21.0) 

POINT (22.X22.Y22.0) 

POINT (23.X23.Y23.0) 

POINT (24.X24.Y24.0) 

POINT (25.X25.Y25.0) 

. POINT (26.X26.Y26.0) 

POINT (27.X27.Y27.0) 

POINT (28.X28.Y28.0) 

POINT (29.X29.Y29.0) 

POINT (30.X30.Y30.0) 

r 

POINT (31.X31.Y31.0) 

POINT (32.X32.Y32.0) 

POINT (33,X33,Y33.0) 

POINT (34.X34.Y34.0t 
POINT (35.X35.Y35.0) 

POINT (36.X36.Y36.0t 
POINT (37.X37.Y37.0) 

POINT (38.X38.Y38.0) 

POINT (39.X39.Y39.0) 

POINT (40.X40.Y40.0) 

<* 

POINT (41.X41.Y41.0) 

POINT (42.X42.Y42.0) 

POINT (43.X43.Y43.0) 

POINT (44.X44.Y44.0) 

POINT (45.X45.Y45.0) 

POINT (46.X46.Y46.0) 

C 
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I * 
( * 
( ’ 


NUGGET CURVE DEFINITIONS 
DEFINE ESMOSS CURVE:' 


LINE 

< i . l .•:> 

LINE 

<2.2.3> 

LINE 

(3.3.4 1 

L1NF 

(4 1.41 

LINE 

(5.4.5) 

ARCCF 

(6.3.6.35) 

UNE 

* 

(7,6.5) 

UNE 

(8.5,8) 

UNE 

(9,6,7) 

UNE 

* 

(10,7.8) 

UNE 

(1 1,8,9) 

ARCCF 

(12.7,10.36) 

UNE 

(13.10.9) 

UNE 

(14.9.12) 

UNE 

(15.10,1 1) 

UNE 

(16,11,12) 

ARCCF 

(17,6,14,38) 

ARCCF 

(18.7.13,37) 

LINE 

* 

(19,14,13) 

LINE 

(20,14.15) 

UNE 

(21.13.16) 

UNE 

’ * 

(22.15,16) 

ARCCF 

(23.15.18.40) 

ARCCF 

(24.16.17.39) 

LINE 

f * 

(25.18.17) 

1 

LINE 

(26.18,19) 

LINE 

(27.17.20) 

LINE 

i * 

(28.19.20) 

l 

ARCCF 

(29.19.22,42) 

ARCCF 

(30.20.21.41) 

UNE 

/ * 

(31,22,21) 

\ 

ARCCF 

(32.21,24,43) 

UNE 

(33,22.23) 

LINE 

/ * 

(34.23,24) 

ARCCF 

(35,28.29,45) 

LINE 

(36.27,28) 

LINE 

(37,26.29) 

<* 


UNE 

(38,27,26) 
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AKCCF 

(39.24 .27. 

LINE 

(40.35 2fi» 

LINE 

(41 .4 35* 

LINE 

(42.30.25 * 

LINE 

(43.23.30) 

AKCCF 

(44.32.23. 

UNE 

(45.31.30) 

LINE 

(46,32,31) 

LINE 

(47.33.32) 

UNE 

(48,34,31) 

UNE 

(49,33.34) 


<• 

(* - NUGGET SURFACE DEFINITIONS - 

(* DEFINE ESMOSS SURFACES 

C 

RULEDSRF <1.2,4) 

RULEDSRF (2,5.6) 

RULEDSRF (3,8,9) 

RULEDSRF (4,11.12) 

RULEDSRF (5,14,15) 

RULEDSRF (6,17,18) 

RULEDSRF (7,20.21) 

RULEDSRF (8,23,24) 

RULEDSRF (9,26,27) 

RULEDSRF (10,29.30) 

RULEDSRF (11.32.33) 

RULEDSRF (12,41,43) 

RULEDSRF (13,39,40) 

RULEDSRF (14,35,38) 

RULEDSRF (15.44.45) 

RULEDSRF (16,47,48) 

C 

(* - NUGGET REGION DEFINITIONS - 

(• DEFINE ESMOSS REGIONS 

C 

REG2D4S (1.1. 1.2. 3. 4. 1,2. 3, 4) 

REG2D4S (2, 2.3, 5, 6. 7. 3. 4. 5. 6) 

REG2D4S (3.3.7.8,9.10.5.6.7.8) 

REG2D4S (4,4.10,11.12.13.7.8.9.10) 
REG2D4S (5.5,13,14,15.16.10.9,12.1 1) 
REG2D4S (6,6,9.17,18.19.6.7.13.14) 
REG2D4S (7,7,19.20.21,22,13.14.15.16) 
REG2D4S (8,8,22,23.24,25,15.16.17,18) 
REG2D4S (9,9,25,26.27.28.17,18.19.20) 
REG2D4S (10,10,28,30.29,31,19.20,21.22) 
REG2D4S (11,11.31.32,33.34,21.22.23,24) 
REG2D4S (12.12,34,41,42.43.23.24.25,30) 
REG2D4S (13.13,39,38.41,40,24,27,26.25) 
REG2D4S (14,14,35,36,37,38,26.27,28.29) 
REG2D4S (15.15,44,43,46,45.23.30.31,32) 
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REG2D4S <16.16.46 47.48.49.31 Z?. ’.3.34 i 

< • 

c DISCRETIZE REGIONS 

D1S2DREG < 1 > 

DISEDGE U.3) 

D1 SEDGE <3. 31 
ENDISCRT 

(* 

D1S2DREG (2) 

DISEDGE (5,3) 

DISEDGE (3.3) 

ENDISCRT 

(’ 

DIS2DREG (3) 

DISEDGE (8.3) 

DISEDGE (7.3) 

ENDISCRT 

<* 

D1S2DREG (4) 

DISEDGE (10,3) 

DISEDGE (11.3) 

ENDISCRT 

(* 

DIS2DREG (5) 

DISEDGE (13.3) 

DISEDGE (14.3) 

ENDISCRT 

C 

DIS2DREG (6) 

DISEDGE (9.3) 

DISEDGE (18,3) 

ENDISCRT 

C 

DIS2DREG (7) 

DISEDGE (19.3) 

DISEDGE (21,3) 

ENDISCRT 

(’ 

DIS2DREG (8) 

DISEDGE (22.3) 

DISEDGE (23.3) 

ENDISCRT 

C 

D1S2DREG (9) 

DISEDGE (25,3) 

DISEDGE (27.3) 

ENDISCRT 

C 

DIS2DREG (10) 

DISEDGE (30,3) 

DISEDGE (28,3) 

ENDISCRT 
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D1S2DREG M 1> 
lM.SEIXiE € : j 1 . 3 » 
DISE1KJE <32.31 
ENDISCRT 

< • 

DIS2DREG (131 
DISEDGE <34.3 > 
DISEDGE (41.3) 
ENDISCRT 

<* 

DIS2DREG (13) 
DISEDGE (40.3) 
DISEDGE (38.3) 
ENDISCRT 

C 

DIS2DREG (14) 
DISEDGE (36.3) 
DISEDGE (38,3) 
ENDISCRT 

<* 

DIS2DREG (15) 
DISEDGE (45,3) 
DISEDGE (43.3) 
ENDISCRT 

(* 

DIS2DREG (16) 
DISEDGE (46.3) 
DISEDGE (47.3) 
ENDISCRT 

<* 


END RECIPE 


I 


I 

by Scralghc Line from Prior Point 
t by Circular Arc from Prior Point 
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Disk 


D’l scret e Modi- 1 
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< • 

, • FAN 1)1 -<• KI •' IF1 

< ‘ 

, . — DISC INPUT DATA •--- 

{ . - USEK PROMPTS - 

< * 

DEFINE THE DISC CROSS-SECTION 

( * 

PRINT INPUT THE ANGLE OF THE CROSS-SECTION TO VIEW THE DISC 
PRINT ANGLE MUST BE GREATER THAN 0, AND LESS THAN 90 DEGRESS 
( ’READ ANGLE 
ANGLE=45 

PRINT THERE ARE 6 INPUT POINTS USED TO DEFINE THE DISC CROSS-SECTION 
PRINT THE RADIUS OF EACH POINT IS MEASURED FROM THE CENTER OF THE DISC 
PRINT THE THICKNESS IS MEASURED FROM THE POINT TO THE TOP EDGE 
PRINT OF THE DISC 

PRINT THE ARC RADIUS DETERMINES THE CURVATURE OF THE DISC 

PRINT IF ARC RADIUS = 0, CONNECT BY STRAIGHT LINE FROM THE PRIOR POINT 

PRINT IF ARC RADIUS > 0. CONNECT BY CIRCULAR ARC FROM THE PRIOR POINT 

PRINT TO THE PRESENT POINT 

PRINT 

PRINT INPUT FIRST POINT - RADIUS. THICKNESS, ARC RADIUS 
(’READ RAD I US 1 
(’READ THICK1 
(’READ ARC1 
RAD I US 1=2 
THICK1= 7 
ARC 1=0 

(* 

PRINT INPUT SECOND POINT - RADIUS, THICKNESS, ARC RADIUS 
(’READ RAD1US2 
(’READ THICK2 
( ’READ ARC 2 
RAD1US2=4 
THICK2=1 0 
ARC2=3 

< * 

PRINT INPUT THIRD POINT - RADIUS. THICKNESS. ARC RADIUS 
(’READ RADIUS3 
< ’READ THICK3 
( ’READ ARC 3 
RAD1US3=6 
THICK3= 5 
ARC3= 1 75 

<* 

PRINT INPUT FOURTH POINT - RADIUS. THICKNESS. ARC RADIUS 
(’READ RAD1US4 
(’READ THICK4 
(’READ ARC 4 
RAD I US 4=8 
THICK 4= 70 
ARC 4 =4 
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PRINT INPUT FIFTH POINT - RADIUS . THH’ICNF >' ARC RADIUS 

< - READ RADIUS') 

( ’READ THICKS 

( ’ READ ARCS 
KADI US5= 1 0 
TH1CK5=1 5 
ARC 5= 2 

< * 

PRINT INPUT SIXTH POINT - RADIUS. THICKNESS, ARC RADIUS 
(•READ RAD I US 6 
(•READ THICK6 
(•READ ARC 6 
RADIUS6=1 2 
THICK6=1 5 
ARC6=0 

<* 

<* 

^****.**#**********»»******#**********« , ****^******************* , ** f 

C 

(• DEFINE MACRO TO CALCULATE ARC CENTER POINT 
(* THE ARC CONNECTS 2 EDGE POINTS ON THE DISC 
<* 

DEFINE CNTR-PT 

(' 

RKSQ=RK*RK 

XMK=XM-XK 

YMK=YM-YK 

D I STSQ=XMK * XMK +YMK*YMK 

(* 

SUMRSQ=RKSQ * 2 

ROOT=2 • SUMRSQ * D 1 STSQ - DI STSQ’DI STSQ 
DST1NV= 5,/DISTSQ 
SCL= 5 

(’ 

X=XMK*SCL +XK 
Y=YMK*SCL +YK 
ROOT=DST 1 NV * SQRT ( ROOT ) 

( * 

XFA( -XMK ’ROOT 
YF AC =YMK ’ ROOT 

( ’ 

(* THE 2 ROOTS OF THE EQUATIONS FOLLOW - 2 POINTS AND A RADIUS 
(• DEFINE 2 POSSIBLE CENTER POINTS 

C 

XL=X+YFAC 

YL=Y-XFAC 

(* 

XR=X-YFAC 

YR=Y+XFAC 

(* 

END CNTR-PT 

C 
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| 1 t t * f t i » r 4 » * • 4 * • * 4 4 ♦ * 1 , t , * * t 4 1 4 * 4 I 4 « 4 • 4 4 • 4 ♦ * * • 4 *4*44444444444444 

4 4 

(• DEFINE MACRO To DEFINE ROTATED POINT.- o\ Till. DISC 

4 4 

DEFINE ROTATE 

< ' 

ANG= ANGLE 4 < 3 14 ! •">!):?? 1 80 ) 

RY 1 =RY 4 COS ( ANG ) - KZ • S 1 N ( ANG ) 

RZ 1 =RZ * COS ( ANG ) +RY 4 S I N ( ANG ) 

RY=RY 1 
RZ=RZ 1 

< ’ 

END ROTATE 

(* 

<♦ DEFINE MACRO TO ROTATE POINTS 4/10 OF THE CROSS-SECTION 
<’ 

DEFINE ROT 4 TEN 

( * 

RANG=ANG 4 4 

RY 1 =RY»C 0 S (RANG )-RZ*SIN( RANG) 

RZ 1 =RZ ’ COS ( RANG ) +RY ’ S I N ( RANG ) 

RY=RY 1 
RZ=RZ 1 

(* 

END ROT 4 TEN 

C 

(* DEFINE MACRO TO ROTATE POINTS 6/10 OF THE CROSS-SECTION 
<* 

DEFINE ROT 6 TEN 

<* 

SANG=ANG 4 6 

RY 1 =RY*C 0 S ( SANG )-RZ* SIN (SANG ) 

RZ 1 =RZ * COS ( SANG ) +RY * S I N ( SANG ) 

RY=RY 1 
RZ=RZ 1 

<* 

END ROT 6 TEN 

<* 

(*•*•••••••••• 

<• 

(* CALCULATE POINT COORDINATE VALUES \-Y PLANE 

( * 

X 1 =TH I CK 1 
Y 1 =RADIUS 1 
C 

X 2 =THICK 2 

Y 2 =RADIUS 2 

C 

X 3 =THI CK 3 
Y 3 =RADIUS 3 

(* 

X 4 =THICK 4 

Y 4 =RADIUS 4 
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( ' 

>; r )=THi <i\ r ' 

Y r >- RAI>I 1 .'•*> 

( ’ 

>:6=thicko 

Y6=RAD1US0 

( * 

(* CALCULATE POINT COORDINATE VALUES FOR ROTATED CROSS-SECTION 

(’ 

RZ=0 
RY=Y1 
ROTATE 
YT=RY 
ZT=RZ 

(* 

<’ 

RZ=0 
RY=Y 1 
ROTATE 
Y51=RY 
Z5 1 =RZ 
C 
C 

RZ=0 
RY=Y 1 
R0T4TEN 
Y101=RY 
Z101=RZ 

RZ=0 
RY=Y 1 
ROT6TEN 
Y151=RY 
Z 1 5 1 =RZ 
C 

RZ=0 
RY=Y2 
ROTATE 
Y52=RY 
Z52=RZ 

( • 

( ’ 

RZ=0 
RY=Y2 
ROT4TEN 
Y102=RY 
Z102=RZ 

C 

RZ=0 
RY=Y2 
ROT6TEN 
Y 1 52=RY 
Z152=RZ 
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ORIGINAL PAfiF !? 

OF POOR QUALITY 



< • 

r:-o 

RY=Y3 

ROTATE 

Vr,:?-R'i 

Z53-RZ 

( ’ 

< ' 

RZ=0 
RY=Y3 
ROT4TEN 
Y 1 03=RY 
Z 1 03=RZ 

C 

RZ=0 
RY=Y3 
ROT6TEN 
Y153=RY 
Z 1 53=RZ 

<* 

RZ=0 

RY=Y4 

ROTATE 

Y54=RY 

Z54=RZ 

(* 

<’ 

RZ=0 
RY=Y4 
ROT4TEN 
Y 1 04=RY 
Z104=RZ 

(’ 

RZ=0 
RY=Y4 
ROT6TEN 
Y 1 54=RY 
Z 1 54=RZ 

( 4 

RZ=0 

RY«Y5 

ROTATE 

Y55=RY 

Z55=RZ 

(* 

C 

RZ=0 

RY=Y5 

R0T4TEN 

Y105=RY 

Z105=RZ 

(’ 


RZ=0 


RY=Yf> 

ROT6TEN 

Y 1 YY-RY 
'L 1 YY-KZ 

( ’ 

RZ=0 

RY=Y6 

ROTATE 

Y56=RY 

Z56=RZ 

<’ 

<* 

RZ=0 
RY=Y6 
ROT4TEN 
Y 1 06=RY 
Z 1 06=RZ 

(* 

RZ=0 
RY=Y6 
ROT6TEN 
Y156=RY 
Z 1 56=RZ 

<* 

(* 

( *’** ****** *** *** ***** 

(* 

<* - DISC POINT DEFINITIONS - 

(* DEFINE ESMOSS POINTS 

<* 

(* PI— 6 RIGHT SIDE OF DISC (X-Y PLANE)' 

(* P6-12 LEFT SIDE OF DISC (X-Y PLANE) MIRROR IMAGE OF RIGHT SIDE 

( • PI 3—22 ARC CENTER POINTS FOR DISC CURVATURE CALCULATIONS 

< * 

(* P51-56 RIGHT SIDE OF DISC (ROTATED PLANE) 

(* P57-62 LEFT SIDE OF DISC (ROTATED PLANE) 

(* P63-72 ARC CENTER POINTS FOR DISC CURVATURE CALCULATIONS < FOR 

( * ROTATED PLANE 

(* 

<’ P101-152 DEFINE POINTS TO GENERATE THE 2 MIDDLE 

C CROSS- SECTIONS 

< ’ 

<♦ P500- CENTER POINTS TO GENERATE ARCS THAT CONNECT 

(* P503 CROSS SECTIONS OF THE DISC 

(* 

(**** * * * ******* 

(* 

SETMODEL (-X6 . Y1 . 0 . X6 , Y6 . Z56 ) 

(* 

POINT ( 1 .XI ,Y1 .0) 

POINT (2.X2.Y2.0) 

POINT (3.X3.Y3.0) 

POINT (4.X4.Y4.0) Cv'UjifoAi. J7 

CF PCOR QL'ALHY 
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POINT <5.>: r > Y5.0) 

POINT < 6 . Xf> Y6 . 0 ) 

point <t ) . Y 1 u) 

POINT <8 -X.J.V:; . (>> 

POINT (9.-X3.Y3 0) 

POINT < 10.-X4 ,Y4 .0 ) 

POINT < 1 1 . -X5 . Y5 . 0 ) 

POINT ( 12 .-X6.Y6 . 0 I 

* 

POINT <51 .XI , Y5 1 . Z5 1 ) 

POINT (52.X2.Y52.Z52) 

POINT (53.X3.Y53.Z53) 

POINT (54.X4.Y54.Z54) 

POINT (55.X5.Y55.Z55) 

POINT (56.X6.Y56.Z56) 

POINT <57. -XI . Y51 ,Z51 ) 
POINT (58.-X2.Y52.Z52) 
POINT < 59 .-X3 ,Y53 ,Z53) 
POINT (60.-X4.Y54.Z54) 
POINT <61 X5.Y55.Z55) 
POINT < 62 , — X6 . Y56 , Z56 ) 

[ * 

POINT < 101 ,X1 ,Y101 . Z 10 1 ) 
POINT (102.X2.Y102.Z102) 
POINT ( 103.X3.Y103.Z103) 
POINT < 104 ,X4 .Y104 .Z104) 
POINT ( 105.X5.Y105.Z105) 
POINT < 106.X6.Y106.Z106) 
POINT (107.-Xl.Y101.Z101) 
POINT < 108.-X2.Y102.Z102) 
POINT ( 109.-X3.Y103.Z103) 
POINT < 1 10 -X4 .Y104 ,Z104) 
POINT ( 1 11 -X5.Y105.Z105) 
POINT (112.-X6.Y106.Z106) 

< ' 

POINT (151.X1.Y151.Z151) 
POINT ( 152.X2.Y152.Z152) 
POINT < 153.X3.Y153.Z153) 
POINT (154.X4.Y154.Z154) 
POINT (155.X5.Y155.Z155) 
POINT < 156.X6.Y156.Z156) 
POINT < 157.-X1 Y151 ,Z151) 
POINT. < 158. -X2 . Y 1 52 . Z 1 52 » 
POINT (159. — X3 . Y 1 53 . Z 1 53 ) 
POINT (160 -X4 . Y 1 54 . Z 1 54 ) 
POINT (161 .-X5.Y155.Z155) 
POINT ( 162.-X6.Y156.Z156) 

<* 

POINT (500. XI .0.0) 

POINT (501 . -XI .0.0) 

POINT (502.X6.0.0) 

POINT (503, -X6, 0.0) 

(* 
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RK= 3 
v !.- i 

1 1 = i 
XM~:. 

YM=2 

CNTR-PT 

X13=XL 

Y13-YL 

C 

C 

( ' DEFINE ARC CENTER POINTS FOR CURVES 

(* IF ARC RADIUS IS '• 0 

<* 

(’ 

(’ DEFINE POINTS TO CONNECT FIRST AND SECOND VALUES 
(* 

IF (ARCS > 0) 

THEN 

RK=ARC2 

XK=X1 

YK=Y1 

XM=X2 

YM=Y2 

CNTR-PT 

X13=XL 

Y13=YL 

POINT ( 13.X13.Y13.0) 

POINT ( 1 8 . -X 1 3 , Y 1 3 , 0 ) 

<* 

R2=0 
RY=Y1 3 
ROTATE 
Y 63=RY 
Z63=RZ 

POINT (63.X13.Y63.Z63) 

POINT (68 -X13.Y63.Z63) 

( * 

RZ=0 
RY=Y 1 3 
ROT4TEN 
Y1 1 3=RY 
Z1 13=RZ 

POINT (113.X13.Y113.Z113) 

POINT ( 1 18.-X13.Y113.Z113) 

<* 

RZ=0 
RY=Y 1 3 
ROT6TEN 
Y163=RY 
Z163=RZ 

POINT ( 163.X13.Y163.Z163) 

POINT ( 168.-X13.Y163.Z163) 
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END! F 


< • 

, . DEFINE POINT.'-' To < oNNpcT SECOND AND TM!i;!> > \ i 1 LS 

t ' 

IF ( ARP 3 Oi 

THEN 

RK=ARC3 

XK=X2 

YK=Y2 

XM=X3 

YM=Y3 

CNTR-PT 

X14=XL 

Y14=YL 

POINT ( 14.X14.Y14.0) 

POINT (19, —X 1 4 . Y 1 4 , 0 ) 

C 

RZ=0 
RY=Y 1 4 
ROTATE 
Y64=RY 
Z64=RZ 

POINT (64.X14.Y64.Z64) 

POINT <69,— X14.Y64.Z64) 

(* 

RZ=0 
RY=Y 14 
ROT4TEN 
Y1 1 4=RY 
Z1 14=RZ 

POINT ( 1 14 ,X14 ,Y1 14 . Z1 14 » 

POINT ( 1 1 9 , -X 1 4 , Y 1 1 4 , Z 1 1 4 ) 

C 

RZ=0 
RY=Y 1 4 
ROT6TEN 
Y 1 64=RY 
Z164=RZ 

POINT < 164.X14.YI64.Z164) 

POINT < 169 -X14 Y164.ZI64) 

END IF 

< * 

<* DEFINE POINTS TO CONNECT THIRD AND FOURTH VALUES 

< * 

IF ( ARC4 -01 
THEN 

RK=ARC4 

XK=X3 

YK=Y3 

XM=X4 

YM=Y4 

CNTR-PT 

X15=XL 
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Y15=YL 

POINT < 15.X1 r > Y15 0) 

point < ■:<.) -::r> r> o* 

i ’ 

KZ=0 
KY-Y 1 5 
ROTATE 
Y65=RY 
Z65=RZ 

POINT (65.Xl5.Y65.Z65j 
POINT (70.-X15.Y65 Z65) 

(* 

RZ=0 
RY=Y 1 5 
R0T4TEN 
Y 1 1 5=RY 
Z1 15=RZ 

POINT (115,X15.Y115,Z115) 

POINT ( 120,-X15,Y115,Z115) 

<* 

RZ=0 
RY=Y 1 5 
R0T6TEN 
Y165=RY 
Z165=RZ 

POINT ( 165.X15.Y165.Z165) 

POINT ( 170.-X15.Y165.Z165) 

ENDIF 

(* 

(* DEFINE POINTS TO CONNECT FOURTH AND FIFTH VALUES 
<* 

IF (ARC 5 :> 0) 

THEN 

RK=ARC5 

XK=X4 

Y*K=Y4 

XM=X5 

YM=Y5 

CNTR-PT 

X16=XL 

Y 1 6=YL 

POINT < 16. XI 6. Y 16.0) 

POINT (21 .-XJ6.Y16.0) 

<* 

RZ=0 
RY=Y 1 6 
ROTATE 
Y66=RY 
Z66=RZ 

POINT (66.X16.Y66.Z66) 

POINT (71, —XI 6 , Y66 . Z66 ) 

<’ 

RZ=0 
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RY=Y 1 6 
ROT4TEN 
Y 1 1 6=RY 
2 1 1 G=RI. 

POINT t 1 1 6 . A H>.Y i It,.'.'. 1 Hi I 
POINT < 1 2 1 . -X Hi . Y 1 Hi . Z 1 Hi i 

( ’ 

RZ=(J 
RY=Y 1 6 
ROT6TEN 
Y166=RY 
Z 1 66=RZ 

POINT ( 166.X16.YI66.Z166) 

POINT (171 .-X16.Y166.Z166) 

END IF 

C 

(* DEFINE POINTS TO CONNECT FIFTH AND SIXTH VALUES 
(' 

IF ( ARC 6 > 0) 

THEN 

RK=ARC6 

XK=X5 

YK=Y5 

XM=X6 

YM=Y6 

CNTR-PT 

X17=XL 

Y17=YL 

POINT ( 17.X17.Y17.0) 

POINT (22.-X17.Y17.0) 

C 

RZ=0 
RY=Y 1 7 
ROTATE 
Y67 =RY 
Z67=RZ 

POINT ( 67 . X 1 7 , Y67 . Z67 > 

POINT (72.-X17.Y67.Z67) 

(• 

RZ=0 
RY=Y 1 7 
ROT4TEN 
Y1 1 7 =RY 
Zl 17=RZ 

POINT ( 117.X17.Y117.Z117) 

POINT ( 122.-X17.Y117.Z117) 

C 

RZ=0 
RY=Y 1 7 
ROT 6 TEN 
Y 1 67=RY 
Z167=RZ 

POINT (167.X17.Y167.Z167) 
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POINT (172 ->.17') ]f>7 7 1 (i 7 t 
END IF 


( 


< • 
< ’ 
< * 
( * 


- DISC CURVE DEFINITIONS 
DEFINE ESMOS? CURVE? 


* ..... 

<* 

<* IF ARC = 0. THEN CONNECT POINTS BY LINES 

<’ ELSE CONNECT POINTS BY ARCS 

( * 

IF (ARCS = 0) 

THEN 


LINE (1,1.2) 

LINE (6.7,8) 

LINE (51 ,51 .52) 

LINE (56.57.58) 

LINE ( 101 ,101 . 102) 
LINE ( 106 . 107 , 108 ) 
LINE (151.151, 152 ) 
LINE (156,157.158) 
ELSE 

ARC (1,13.1,2) 

ARC (6.18,7.8) 

ARC (51,63.51,52) 

ARC (56,68,57,58) 

ARC (101,113.101. 102) 
ARC (106.118.107,108) 
. ARC ( 151 . 163 . 151 , 152) 
ARC ( 156. 168. 157. 158) 
END IF 


< * 

<* 

<♦ 


IF ARC 3 = 0. THEN CONNECT POINTS BY LINES. 

ELSE CONNECT POINTS BY ARCS 


IF ( ARC3 = 0) 

THEN 

LINE (2,2.3) 

LINE (7.8.9) 

LINE (52.52.53) 

LINE (57.58,59) 

LINE (102,102.103) 
LINE (107. 108. 109) 
LINE (152.152.153) 
LINE (157.158. 159) 
ELSE 

ARC (2.14.2.3) 

ARC (7,198.9) 

ARC (52,64,52.53) 

ARC (57.69,58.59) 

ARC (102, 114, 102. 103) 
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ARC < 107.119 108.109) 
ARC (1 82. 184. 152. l->8) 
ARC <107 109 1 OR. 1 0'M 
END IF 


< * 

( ‘ IF ARC 4 
( * 


0 THEN CONNECT POINTS BO LINE.?. 
ELSE CONNECT POINTS BO' ARCS 


IF (ARC 4 = 0) 

THEN 

LINE (3.3.4) 

LINE (8.9.10) 

LINE (53.53.54) 

LINE (58.59,60) 

LINE (103.103.104) 

LINE (108.109.110) 

LINE (153,153,154) 
LINE ( 158 , 159 , 160) 
ELSE 

ARC (3.15,3.4) 

ARC (8.20.9,10) 

ARC (53,65,53.54) 

ARC (58.70.59.60) 

ARC (103.115.103.104) 
ARC (108.120,109.110) 
ARC ( 153,165.153.154) 
ARC (158.170.159.160) 
END IF 


C 

(* IF ARC 5 = 0. 
<* 

C 

IF (ARC 5 = 0) 


THEN CONNECT POINTS BY LINES. 
ELSE CONNECT POINTS BY ARCS 


THEN 

LINE (4.4.5) 

LINE (9.10.11) 

LINE (54.54.55) 

LINE <59.60.61 ) 

LINE < 104 .104.105) 

LINE (109 .110 111) 

LINE (154.154. 155 ) 
LINE (159.160.161) 
ELSE 

ARC (4,16.4.5) 

ARC (9.21.10,11) 

ARC (54.66.54.55) 

ARC (59.71.60,61) 

ARC (104,116.104.105) 
ARC (109,121.110,111) 
ARC (154.166.154.155) 
ARC (159.171.160,161) 
END1F 


C 
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< • IF ARCfi = 0. THEN CONNECT POINT."’ HY LINES 
<• ELSE CONNECT POINTS B'i Ak< S 

i • 

IF (ARCH - 0 » 

THEN 

LINE <5.5.6) 

LINE <10.11.1?! 

LINE <55.55.56! 

LINE (60.61.62) 

LINE < 105. 105, 106! 

LINE <110.111.112! 

LINE (155.155.156) 

LINE ( 160.161 . 162) 

ELSE 

ARC (5. IT. 5, 6) 

ARC (10.22,11.12) 

ARC (55.67,55.56) 

ARC (60.72,61,62) 

ARC (105.117,105.106) 

ARC (110,122,111,112) 

ARC (155.167.155, 156) 

ARC (160, 172. 161 . 162) 

ENDIF 

C 

<* 

LINE (11.1,7) 

LINE (12,5,11) 

LINE (61.51,57) 

LINE (62.55.61) 

(* 

LINE (111,101,107) 

LINE (112.105.111) 

LINE <161.151. 157) 

LINE (162.155.161! 

C 

( ’ COMBINE THE 5 CROSS-SECTION CURVES INTO ONE CURVE 
<* IN ORDER TO DEFINE SURFACES 

(’ 

MRGCURVE <2012! 

MRGCURVE (21.20.3) 

MRGCURVE (22.21.4) 

C 

MRGCURVE (70,51.52) 

MRGCURVE (71.70.53) 

MRGCURVE (72.71,54) 

<* 

MRGCURVE (24,6.7) 

MRGCURVE (25.24,8) 

MRGCURVE (26.25,9) 

<* 

MRGCURVE (74,56,57) 

MRGCURVE (75,74.58) 

MRGCURVE (76,75,59) 
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MRGCURVE H'.'.'O 101 . 103 ► 

MRtJCl ! KVE ( 1 1 1 '-li Hi ' 

MRGCURVE ll-J.J 11 H'l» 

< ‘ 

MRGCURVE <170.151.1 52 > 

MRGCURVE (171.170 153 > 

MRGCURVE ( 1 72 . 1 7 1 . 1 54 » 

( * 

MRGCURVE (124.106.1071 
MRGCURVE (125,124.108) 

MRGCURVE (126.125.109) 

<* 

C 

(» CONNECT DISC CROSS-SECTION BY ARCS 

<* 

<* 

ARC (200.501 .7.107) 

ARC (201 .500.1. 101 ) 

ARC (202.503.11.111) 

ARC (203.502.5.105) 

C 

(* 

ARC (210.501 . 107.157) 

ARC (211.500.101 . 151) 

ARC <212.503.111 . 161) 

ARC (213.502. 105.155) 

(* 

<* 

ARC (220,501 . 157,57) 

ARC (221.500.151.51) 

ARC (222.503.161,61) 

ARC (223.502.155.55) 

<• 

<’*** 

<* 

- DISC SURFACE DEFINITIONS - 
<» DEFINE ESMOSS SURFACES 

C 

4.,..,, 4 4 ••• 4.4 . 4 4 4 . 4 ... 

(* 

XAX1 S= 1 

< * 

REVOLVE (1 .XAXIS. 22. (ANGLE* 4)) 

REVOLVE ( 2 .XAXIS .26 . (ANGLE 4 4) ) 

REVOLVE (3. XAXIS. 11, (ANGLE* 4)) 

REVOLVE (4 .XAXIS. 12. (ANGLE* 4) ) 

C 

MRGCURVE (174,156,157) 

MRGCURVE (175,174.158) 

MRGCURVE (176.175,159) 

(* 

DELETEPT (16) 
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DELETECY ( :*J() ) 

DELETECY (21 > 

DELETE* Y t?!M 
DELETE* *Y (711 
DELETECY ( 24 i 
DELETECY <2! !> > 

DELETECV ( 74 ) 

DELETECY (75) 

DELETECV (120) 

DELETECV (121) 

DELETECV (170) 

DELETECV (171) 

DELETECV (124) 

DELETECV (125) 

DELETECV (174) 

DELETECV (175) 

RULEDSRF (5,22,26) 

RULEDSRF (6.122.126) 

C 

(* 

REVOLVE (7.XAXIS, 122, (ANGLE* .2)) 

REVOLVE (8.XAXIS. 126, (ANGLE* 2)) 

REVOLVE (9.XAXIS, 111 , (ANGLE* .2) ) 

REVOLVE ( 10.XAXIS, 112. (ANGLE* .2)) 

(* 

RULEDSRF (11.172.176) 

C 

(’ 

REVOLVE ( 12.XAXIS. 172. (ANGLE* .4) ) 

REVOLVE ( 13.XAX1S. 176. (ANGLE* .4) ) 

REVOLVE (14. XAX IS. 161 , ( ANGLE * 4 ) ) 

REVOLVE (15. XAX 1 S . 1 62 . ( ANGLE * 4 ) ) 

(* 

RULEDSRF (16,72.76) 

<* 

<* * * * 

< * 

(♦ - DISC REGION DEFINITIONS - 

(♦ DEFINE ESMOSS REGIONS 

(* 

( * 

( ’ 

REG3D (1. 1. 2. 3. 4, 5. 6, Sc 

200,201.202,203, 22, 26. 122.126. 11. 12. 111,112. Sc 
1 . 7. 101.107. 5. 11 . 105,111) 

<’ 

REG3D (2. 6. 7. 8. 9, 10, 11, Sc 

210,211,212,213.122,126,172.176,111.112.161.162. Sc 
101,107.151,157,105,111.155.161) 

<* 

REG3D (3. 11, 12, 13. 14. 15, 16. Sc 

220,221.222,223,172.176, 72. 76', 61, 62. 161,162, Sc 
151,157, 51, 57, 155.161, 55. 61) 
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i • - l>] .'VRCTIIL REGION 

( • 

j • i ♦ t 1 t * « ♦ * • ^ * * ♦ ' * ' ’ ? * * * 1 ' ’ 1 * 1 ' ' ' ' ' * * 

< * 

PRINT INPUT THE NUMBER OF NODES PER FDGF 
(* READ DNODE 
DNODE=3 

C 

DIS8NBRK (1) 

DI SEDGE (22. DNODE) 

DI SEDGE (200. DNODE) 

DI SEDGE (11. DNODE) 

ENDISCRT 

(’ 

DIS8NBRK (2) 

C 

DI SEDGE (2 10. DNODE) 

DI SEDGE (122. DNODE ) 

DI SEDGE (111. DNODE) 

ENDISCRT 

C 

DIS8NBRK (3) 

<* 

DI SEDGE (220. DNODE) 

DI SEDGE (172. DNODE) 

DISEDGE (161. DNODE) 

ENDISCRT 

<* 

END RECIPE 
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I • 
I • 


BROACH RECIPE 


{ ’ 
( ' 
< * 
< ’ 


— BROACH INPUT DATA — 
- USER PROMPTS - 

DEFINE THE TOP OF THE DISC 


( * 

PRINT INPUT THE ANGLE OF THE CROSS-SECTION TO VIEW THE BROACH 
PRINT ANGLE MUST BE GREATER THAN 0, AND LESS THAN 90 DEGRESS 
PRINT AND MUST CORRESPOND EXACTLY TO THE VALUE GIVEN FOR THE DISC 
(•READ ANGLE 
ANGLE=45 


(• 

PRINT DEFINE THE TOP PART OF THE DISC THESE VALUES MUST BE 

PRINT EXACTLY THE SAME AS THE DISC 
PRINT 

( * 

PRINT INPUT FIFTH POINT - RADIUS. THICKNESS 
(•READ RADI US 5 
(•READ THICK5 
RADIUS5=10 
TH1CK5=1 5 


(' 

PRINT INPUT SIXTH POINT - RADIUS 
(•READ RADIUS6 
RADIUS6=12 
TH1CK6=TH1CK5 

< • 

( * 

< • DEFINE THE BROACH 

< * 


C 

PRINT NOW DEFINE THE PARAMETERS FOR THE BROACH 
PRINT 

PRINT THERE ARE 7 INPUT POINTS USED TO DEFINE THE BROACH CROSS-SECTION 

PRINT POINT 1 DEFINES THE BOTTOM OF THE BROACH 

PRINT POINT 7 DEFINES THE SHAPE AT THE TOP EDGE OF THE DISC 

PRINT THE RADIUS OF EACH POINT IS MEASURED FROM THE TOP EDGE OF THE DISC 

PRINT THE THU I. NESS IS MEASURED FROM THE CENTER-LINE POINT TO THE SIDE 

PRINT OF THE BROACH 

PRINT THE ARC RADIUS DETERMINES THE CURVATURE OF THE BROACH 

PRINT IF ARC RADIUS = 0. CONNECT BY STRAIGHT LINE FROM THE PRIOR POINT 

PRINT IF ARC RADIUS < 0. CONNECT BY CIRCULAR ARC FROM THE PRIOR POINT 

PRINT 

PRINT NOTE — THE ARC RADIUS FOR POINT 7 HAS A DEFAULT VALUE OF 0. 

PRINT AND IS THEREFORE A STRAIGHT LINE. 

PRINT 

PRINT INPUT FIRST BROACH POINT - RADIUS. THICKNESS. ARC RADIUS 
(•READ BRAD I US 1 
(•READ BTHICK1 
(•READ BARC1 
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BKADI US 1 = 1 6 
BTH I CK 1=0 

BAK< l = i' 

< • 

PRINT INPUT SECOND BROACH POINT - RADIUS. THICKNESS. ARC RADIUS 
( 'READ BRAD I USC 
< 'READ BTHICK2 
( 'READ BARC2 
BRADIUS2=1 4 
BTHICK2= 8 
BARC2=- 1 

(’ 

PRINT INPUT THIRD BROACH POINT - RADIUS, THICKNESS. ARC RADIUS 
(’READ BRAD I US 3 
(’READ BTHICK3 
< ’READ BARC3 
BRAD1US3=1 2 
BTHICK3=1 0 
BARC3=-2 
(*■ 

PRINT INPUT FOURTH BROACH POINT - RADIUS, THICKNESS, ARC RADIUS 
(’READ BRAD I US 4 
(’READ BTHICK4 
(’READ BARC4 
BRADIUS4= 9 
BTHI CK4= 1 10 

BARC4=-3 5 

(* 

PRINT INPUT FIFTH BROACH POINT - RADIUS. THICKNESS, ARC RADIUS 
(’READ BRAD 1 US 5 
(’READ BTHICK5 
( ’READ BARC5 
BRADIUS5=.60 
BTHICK5=1 .0 
BARC5=-2 

( * 

PRINT INPUT SIXTH BROACH POINT - RADIUS. THICKNESS. ARC RADIUS 
(’READ BRAD I US6 
( ’ READ BTH I CK6 
('READ BARCCi 
BRAD] US0-- 4 
BTH I CK6= 8 
BARCf.=-4 

< ’ 

PRINT INPUT SEVENTH BROACH POINT- RADIUS, THICKNESS 
(’READ BRAD 1 US 7 
(’READ BTH1CK7 
BRADIUS7=0 
BTHICK7= . 9 
BARC7=0 

(* 

(’ DEFINE MACRO TO CALCULATE ARC CENTER POINT 


179 



DEFINE TNTR-PT 

I * 

K1 M^RI ' •HE 
XMK=XM-XK 
'i"MK=YM— YK 

D I STSQ=XMK ' XMK +YMK * YMK 

( * 

SUMRSQ=RKSQ * 2 

ROOT=2 * SUMRSQ* DI STSQ - DI STSQ*DI STSQ 
DSTINV= . 5/DI STSQ 
SCL= 5 
C 

X=XMK* SCL +XK 
Y=YMK»SCL +YK 
ROOT=DST I NV * SQRT ( ROOT ) 

<* 

XFAC=XMK’ ROOT 
YFAC=YMK ’ ROOT 

(* 

(* THE 2 ROOTS OF THE EQUATIONS FOLLOW - 2 POINTS 
<* DEFINE 2 POSSIBLE CENTER POINTS. 

C 

XL=X+YFAO 
YL»Y-XFAC 
XR=X— YFAC 
YR=Y+XFAC 

( * 

END CNTR-PT 

(* 

r"””’ 

< • 

<’ DEFINE MACRO TO DEFINE ROTATED POINTS 
{ * 

DEFINE ROTATE 

( * 

ANG=ANG LEM 3. 1415927/180) 

RY 1 =RY * COS ( ANG > -R2 * S I N ( ANG ) 

RZ 1 =RZ * COS ( ANG ) +RY ’ 3 1 N < ANG ) 

RY=RY 1 
RZ=RZ 1 

< ’ 

END ROTATE 

( • 

<* 

(* CALCULATE POINT COORDINATE VALUES X 

< * 

X5=THICK5 

Y5=RADIUS5 

< * 

X6=TH I CK6 
Y6=RADIUS6 


AND A RADIUS 




Y PLANE 
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( • 

< • CALCULATE POINT COORDINATE VALUES FOR ROTATED CROSS-SECT 1 ON 


KL -o 
RY=Y<> 

ROTATE 

YT=RY 

ZT=RZ 

C 

RZ=0 

RY=Y5 

ROTATE 

Y55=RY 

Z55=RZ 

C 

RZ=0 

RY=Y6 

ROTATE 

Y56=RY 

Z56=RZ 

C 

Y200=Y5+( < ( Y6-Y5 ) *3 )/ 4 ) 

RZ=0 

RY=Y200 

ROTATE 

Y202=RY 

Z202=RZ 

C 

Y205=Y5+< ( Y6-Y5 )/2 ) 

RZ=0 

RY=Y205 

ROTATE 

Y207=RY 

Z207=RZ 

(* 

Y210=Y5+( (Y6— Y5)/4 ) 

RZ=0 
RY=Y21 0 
ROTATE 
Y212*RY 
Z212=RZ 

<* 

SETMODEL (-X6.Y1.0 X6.Y6.Z56) 

C 

POINT (5.X5.Y5.0) 

POINT (6.X6.Y6.0) 

POINT ( 11 .-X5.Y5.0) 

POINT ( 12.-X6.Y6.0) 

POINT (55 ,X5 , Y55 . Z55 ) 

POINT (56.X6.Y56.Z56) 

POINT <61 .-X5.Y55.Z55) 

POINT (62.-X6 .Y56.Z56) 

C 
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POINT < 500 X6 . Y200 . 0 ) 
p< > 1 NT f 50 1 . -X6 Y500 . 0 ) 

)•<> jNT i Xti Y . 5.505 » 
po I \t .< ,:u 5 . -XL Y505 - .0:; » 


( • 

POI NT ( 50f> . X6 . Y205 . 0 i 
POINT ( 206 - Xfi . Y205 . 0 > 

PO 1 NT (207.Xfj.Y207.Z207) 
POINT (208.-X6.Y207.Z207) 

C 

POINT (210 ,X6 .Y210 , 0) 
POINT (211 .-X6.Y210.0) 
POINT (212.X6.Y212.Z212) 
POINT (213 -X6.Y212.Z212) 

(• 

POINT (502X6,0.0) 

POINT (503 -X6 . 0 ,0) 

C 

(* 

RK=3 
XK=1 
YK= 1 
XM=2 
YM=2 
CNTR-PT 
X 1 3=XL 
Y 1 3=YL 


NOW START TO DEFINE THE BROACH 


C 
( 1 
( 

( 

( 

< 

( * 

(• CALCULATE POINT COORDINATE VALUES 

C 

ANGLE= ANGLE 2 






< ’ 

RY=Y6-BRAD I US 1 
RZ=BTHICK1 
ROTATE 
Y101=RY 
2101 =RZ 

( * 

RY=Y 6— BRAD 1 U S 2 
RZ=BTH 1 CK2 
ROTATE 
Y 1 02=RY 
Z102=RZ 

<* 


RY=Y 6— BRAD I US 3 
RZ=BTH I CK3 
ROTATE 
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KY-Y(i-HkAi) ! t : .~'4 
RZ=BTH1 Ch4 
ROTATE 
Y104=RY 
Z104=RZ 
C 

RY=Y6-BRADIUS5 
RZ=BTH I CK5 
ROTATE 
Y105=RY 
Z105=RZ 

(* 

RY=Y6-BRAD I US6 
RZ=BTHICK6 
ROTATE 
Y106=RY 
Z 1 06=RZ 

(* 

RY=Y6-BRADIUST 
RZ=BTHI CKT 
ROTATE 
Y107=RY 
Z107=RZ 

(* 

RY =Y 6-BRAD I US 2 
RZ=-BTH I CK2 
ROTATE 
Y 1 08=RY 
Z 1 08=RZ 

(* 

RY"=Y6-BRAD I US 3 

RZ=-BTHICK3 

ROTATE 

Y109=RY 

Z109=RZ 

( * 

RY=Y6-BRADIUS4 
RZ=-BTH I CK4 
ROTATE 
Y 1 1 0=RY 
Z110=RZ 

(* 

RY =Y 6— BRAD I US 5 

RZ=-BTHICK5 

ROTATE 

Y1 1 1=RY 

Z1 1 1=RZ 

< * 

RY=Y 6— BRAD I US6 
RZ=-BTH I CK6 



ROTATE 
Y 1 1 2-RY 

1 1 1 kz 


RY=YG-BRADll!S7 
RZ=— BTH1CK7 
ROTATE 


Y113=RY 
Z 1 1 3=RZ 


C 

(* 

(*" 

C 

C 

C 

C 

C 

<* 

C 

C 

C 

(* 

C 

C 

(* 

C 

(* 

(* 


P101-107 
P108-113 
PI 14-125 

P151-157 

P158-163 

P164-175 




X12=-X6 ■ 


- BROACH POINT DEFINITIONS 

DEFINE ESMOSS POINTS 

RIGHT SIDE OF THE BROACH 

LEFT SIDE OF THE BROACH (MIRROR IMAGE) 

ARC CENTER POINTS FOR BROACH CURVATURE CALCULATIONS 

RIGHT SIDE OF THE BROACH (OFFSET) 

LEFT SIDE OF THE BROACH (OFFSET) 

ARC CENTER POINTS FOR BROACH CURVATURE CALCULATIONS 
FOR OFFSET 




♦ *♦♦******* + 


(* 

POINT (101 .X12.Y101 .Z101) 
POINT ( 102 . XI 2 Y' 102 .Z 102) 
POINT (103.X12.Y1Q3.Z103) 
POINT ( 104.X12.Y104.Z104) 
POINT ( 105 .X12 .Y105 .Z105) 
POINT ( 106.X12.Y106.Z106) 
POINT ( 107.X12.Y107.Z107) 

(* 

POINT < 108.X12.Y108.Z108) 
POINT ( 109.X12.Y109.Z109) 
POINT (110.X12.Y110.Z110) 
POINT (111 .X12.Y1 1 1 . Z 1 1 1 ) 
POINT (112. X12.Y 112. Z112) 
POINT ( 1 13.X12.Y1 13.Z1 13) 

C 

POINT ( 151 ,X6 ,Y101 .Z101 ) 
POINT (152.X6.Y102.Z102) 
POINT ( 1 53 , X6 , Y 1 03 . Z 1 03 ) 
POINT ( 1 54 , X6 . Y 1 04 , Z 1 04 ) 
POINT ( 155.X6.Y105.Z105) 
POINT ( 156 ,X6 .Y106 .Z106) 
POINT ( 157.X6.Y107.Z107) 

(* 
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POINT t ] r >fl X6 Y 1 08 . Zl 08 > 

POINT ( 1 '/.» Yfj V 109 .2109) 

point < i «<o v i 1 0 . r . i i o > 

POINT U(il .xo . v 111 Zlli > 

POINT < 16Z.X0.Ylli.Zl li) 

POINT U63.X6.Y113.Z113) 

1 * 

C DEFINE CENTER POINTS FOR CURVES 

<’ IF ARC RADIUS IS > 0 

(’ 

(* DEFINE POINTS TO CONNECT FIRST AND SECOND POINTS IF NECESSARY 
(* 

(’ 

IF (BARC2 < 0) 

THEN 

RK=-BARC2 
XK=2 1 0 1 
YK=Y 101 
XM=Z102 
YM=Y102 
CNTR-PT 
Z 1 1 4=XR 
Y 1 14=YR 

POINT ( 114.X12.Y114.Z114) 

POINT ( 1 64 . X6. Y 1 1 4 . Z 1 1 4 ) 

XK=Z 1 0 1 
YTv=Y 1 0 1 
XM=Z108 
YM=Y 1 0 8 
CNTR-PT 
Z120=XL 
Y120=YL 

POINT ( 120.X12 Y120.Z120) 

POINT ( 170.X6.Y120.Z120) 

(’ 

END IF 

(* DEFINE POINTS TO CONNECT SECOND AND THIRD VALUES 
<* 

IF (BARC3 < 0) 

THEN 

RK=-BARC3 
XK=Z1 02 
YTC=Y102 
XM=Z103 
YM=Y 1 03 
CNTR-PT 
Zl 15=XR 
Y 1 1 5=YR 

POINT (115.X12.Y115.Z115) 

POINT (165,X6,Y115,Z115) 

XK=Z 1 08 
YK=Y108 
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XM=Z10‘J 
YM=Y 1 09 
CNTK-f’T 
2 1 2 1-XL 
Y121=YL 

POINT U21 .X12.Y121 .2121 * 

POINT < 171 .X6.Y121 2121 > 

( * 

ENDIF 

( * DEFINE POINTS TO CONNECT THIRD AND FOURTH VALUES 

C 

IF (BARC4 < 0) 

THEN 

RK=-BARC 4 
XK=Z103 
YK=Y 1 03 
XM=Z 1 04 
YM=Y 1 04 
CNTR-PT 
Z1 16=XR 
Y 1 1 6=YR 

POINT Ul6.X12.Yll6.Zn6) 

POINT U66.X6.Y116.Z116) 

XK=Z109 
YK=Y 1 09 
XM=Z1 10 
YM=Y 110 
CNTR-PT 
Z122=XL 
Y122=YL 

POINT U22.X12.Y122.Z122) 

POINT (172.X6.Y122.Z122) 

(* 

ENDIF 

( * 

(* DEFINE POINTS TO CONNECT FOURTH AND FIFTH VALUES 

C 

IF (BARC5 < 01 
THEN 

RK=-BARC5 
XK=Z104 
YK=Y 1 04 
XM=Z105 
YM=Y 1 05 
CNTR-PT 
Z1 17=XR 
Y117=YR 

POINT U17.X12.Y117.Z117) 

POINT (167.X6.Y117.Z117) 

XK=Z 1 1 0 
YK=Y 1 1 0 
XM=Z 111 
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YM=Y 1 1 1 
CNTR-PT 

Z 1 23- XL 

i i::3=YL 

POINT (1 23 . X 1 2 . Y 1 23 . Z 1 2 3 ) 
POINT < 173. X(> . Y 1 23 .2123) 

< ’ 


END IF 

(* 

(* DEFINE POINTS TO CONNECT FIFTH AND SIXTH VALUES 
<* 

IF (BARC6 < 0) 

THEN 

RK=-BARC6 
XK=Z105 
YK=Y105 
XM=Z 1 06 
YM=Y1 06 
CNTR-PT 
Z 1 1 8=XR 
Y 1 1 8=YR 

POINT ( 118.X12.Y118.Z118) 

POINT ( 168.X6.Y118.Z118) 

XK=Z 111 
YK=Y 111 
XM=Z 1 12 
YM=Y 112 
CNTR-PT 
Z124=XL 
Y124=YL 

POINT ( 124.X12.Y124 .Z124) 

POINT ( 1T4.X6.Y124.Z124) 

C 

END IF 

C 

(* DEFINE POINTS TO CONNECT SIXTH AND SEVENTH VALUES 
(* 

IF (BARC7 <- 0) 

THEN 

RK=-BARCT 
XK=Z 1 06 


YK=Y106 
XM=Z 1 07 
YM=Y 1 07 
CNTR-PT 
Z 1 1 9=XR 
Y 1 1 9=YR 

POINT (119.X12.Y119..Z119) 

POINT (169.X6.Y119.Z119) 

XK=Z 112 

YK=Y 112 

XM-Z 1 1 3 

YM=Y 113 
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CNTR-PT 
Z 1 

Y125---YL 

POINT < 125.X 12. Y l:; r .' ..1- r *> 

POINT (170. y.(> Y 1 25 . 7 , 1 2‘7 > 

( * 

END IF 
I • 

( ’ 

- BROACH CURVE DEFINITIONS - 
<. DEFINE ESMOSS CURVES 


(• 

(* IF BARC = 0, THEN CONNECT POINTS BY LINES 

( . ELSE CONNECT POINTS BY ARCS 

C 

IF (BARC2 = 0) 

THEN 

LINE ( 101 . 101 , 102) 

LINE ( 107, 108,101) 

LINE ( 151 , 151 , 152) 

LINE ( 157, 158, 151 ) 

ELSE 

ARC ( 101 .114.101, 102) 

ARC ( 107. 120. 108, 101 ) 

ARC ( 151 . 164, 151 . 152) 

. ARC ( 157. 170.158. 151 ) 

END IF 

(* 

(• IF BARC 3 = 0, THEN CONNECT POINTS BY LINES. 

ELSE CONNECT POINTS BY ARCS 

( * 

IF ( BARC 3 = 0) 

THEN 

LINE ( 102 . 102 , 103) 

LINE ( 108, 109, 108) 

LINE (152.152,153) 

LINE (158.159.158) 

ELSE 

ARC (102,115, 102. 103) 

ARC (108.121. 109 . 108) 

ARC (152,165,152. 153) 

ARC ( 158,171 . 159,158) 

END1F 

C 

(• IF BARC4 = 0, THEN CONNECT POINTS BY LINES, 
(. ELSE CONNECT POINTS BY ARCS 

<• 

IF (BARC4 = 0) 

THEN 

LINE (103.103,104) 
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LINE (100 109 mil 
LINE ( 1 53 1 5? ] 5-n 
LINE ( 1:>'< I Vj .](>()» 

EL :’L 

ARC (103 1 1(5 . 103 . 104 » 

ARC ( 109 .122.109.110) 

ARC < 13 3 166 . 153 . 164 1 
ARC (159.172.159.160) 

END IF 

<* 

< * IF BARC5 = 0. THEN CONNECT POINTS BY LINES. 
<* ELSE CONNECT POINTS BY ARCS 

<* 

IF (BARC5 = 0) 

THEN 

LINE ( 104, 104. 105) 

LINE (110,110.111) 

LINE (154.154.155) 

LINE ( 160, 160, 161) 

ELSE 

ARC (104,117.104.105) 

ARC (110,123.110.111) 

ARC (154.167,154.155) 

ARC ( 160. 173, 160. 161 ) 

END IF 

( ’ 

<* IF BARC6 = 0. THEN CONNECT POINTS BY LINES. 
(’ ELSE CONNECT POINTS BY ARCS 

(* 

IF (BARC6 = 0) 

THEN 

LINE (105.105,106) 

LINE (111.111,112) 

LINE ( 155 ,155.156) 

LINE (161 , 161 , 162) 

ELSE 

ARC (105.118,105.106) 

ARC (111.124.111.112) 

ARC (155.168.155.156) 

ARC (161,174.161.162) 

END IF 

( » 

(* IF BARC7 = 0. THEN CONNECT POINTS BY LINES. 
(’ ELSE CONNECT POINTS BY ARCS 

< * 

IF (BARC7 = 0) 

THEN 

LINE (106,106,107) 

LINE (112,112,113) 

LINE (156,156,157) 

LINE (162, 162, 163) 

ELSE 

ARC (106,119, 106, 107) 
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AK< (112.125.112.113) 

ARC <156.169.156.157) 

AK< < 16.; .175 162 1 63 I 
END 1 V 

< * 

(’ 

<* CONNECT DISC CROSS-SECTION FO ARC:- 

r 

C 

ARC (202,503.12.113) 

ARC (203.503,107,62) 

ARC (204,502.6.163) 

ARC (205,502.157,56) 

<* 

ARC (210,502.5.55) 

ARC (211.503.11.61) 

(• DEFINE TOP CROSS-SECTION PIECE WITH STRAIGHT LINES 

(* 

LINE (212.5,6) 

LINE (213.11.12) 

LINE (214,55.56) 

LINE (215.61.62) 

LINE (220,11.5) 

LINE (221 . 12.6) 

LINE (222.61 ,55) 

LINE (223,62,56) 

<* 

(* CONNECT BROACH POINTS 

<* 

LINE (230.113,163) 

LINE (231 . 107, 157) 

LINE (232.106.156) 

LINE (233.112.162) 

LINE (234,103,153) 

LINE (235. 109, 159) 

LINE (236,12,201) 

LINE (237,6,200) 

LINE (238.11.211) 

LINE (239,5.210) 

LINE (240.56.202) 

LINE (241,62.203) 

LINE (242.55.212) 

LINE (243.61 ,213) 

LINE (244,111 . 161 ) 

LINE (245.105.155) 

(' 

PARMCRV (900,210. .4) 

PARMCRV (901 .210, .6) 

PARMCRV ( 902 ,211,4) 

PARMCRV (903,211 ,6) 

C 

ARC (250,502,5.900) 
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ARC ( 1 r )0.c •>00.901) 

ARC ( 25‘: 502 *K) 1 . 55 ) 
ak> i r .o;. l i . yu2 > 
art ( 354 5(1 . 902 . you ) 
ARC ( 255 5u '; .903.61 ) 


LINE <260. 11.211) 

LINE (261.5.210) 

LINE (262.55.212) 

LINE (263.61 .213) 

( * 

(• CONSTRUCT LINES TO DEFINE REGION BOUNDARIES 
<* 

LINE (300,200. 162) 

LINE (301,201,112) 

LINE (302 156.202) 

LINE (303. 106,203) 

( * 

LINE (310,210, 159) 

LINE (311,211, 109) 

LINE (312,153,212) 

LINE (313,103,213) 

LINE (315,205, 161 ) 

LINE (316.206, 111 ) 

LINE (317.155,207) 

LINE (318. 105,208) 

( ’ 

LINE (320.201 ,200) 

LINE (321 ,203.202) 

LINE (322.211 .210) 

LINE (323.213.212) 

( ’ 

LINE (325.210.205) 

LINE (326.21 1 .206 ) 

LINE (327.212,207) 

LINE (328.213,208) 

( ’ 

LINE (330,900,159) 

LINE (331 .901 . 153) 

LINE (332,902, 109) 

LINE (333.903.103) 


( ' 

LINE (334.205.200) 

LINE (335.206,201 ) 

LINE (336,207,202) 

LINE (337.208.203) 

LINE (338.206,205) 

LINE (339.208,207) 

<* 

LINE (340.900.902) 

LINE (341 ,901 ,903) 

( ’ 

C MERGE BROACH CURVES INTO ONE CURVE TO DEFINE A SURFACE 
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MRGCURVE < 100 100 1 10 I 
MKGCURYL MOl.lO.j 104 1 
MKGCURV't ( 40;: 1 r >'J 100 > 
MRGCURVE <403 .133.104) 

( * 

MRGCURVE (410 108 107) 
MRGCURVE (411 .410. 101 ) 
MRCCURVE (412.411.102) 

(* 

MRGCURVE (420.158.157) 
MRGCURVE (421.420.151) 
MRGCURVE (422.421.152) 





****** 

- BROACH SURFACE DEFINITIONS - 



DEFINE ESMOSS SURFACES 

*********** 


DEFINE SURFACES FOR REGION 1 



RULEDSRF (1.250.253) 

RULEDSRF (2.310.311) 

RULEDSRF (3.260.261) 

RULEDSRF (4.330,332) 

RULEDSRF (5.250.310) 

RULEDSRF (6,253.311) 

C 

(. DEFINE SURFACES FOR REGION 2 

(* 

RULEDSRF (7,251, 254 ) 

RULEDSRF (8.412.422) 

RULEDSRF (9.412.254) 

RULEDSRF (10.422.251) 

C 

(♦ DEFINE SURFACES FOR REGION 3 

( 4 

RULEDSRF (11, 252 . 255 ) 

RULEDSRF (12.312.313) 

RULEDSRF (13.262.263) 

RULEDSRF (14.331.333) 

RULEDSRF (15.252.312) 

RULEDSRF (16.255.313) 

C 

<* DEFINE SURFACES FOR REGION 4 

<* 

RULEDSRF (20,202,204) 

RULEDSRF (21,300.301) 

RULEDSRF (22.202,301) 

RULEDSRF (23,204.300) 

RULEDSRF (24.320.221) 
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ORIGINAL PAGE 13 
OF POOR QUALITY 


RULEDSRF ( 25 . 330 . 233 I 

i • 

(• DEI 1 Ni: SURFACE " FOR REGION * 

< • 

RULEDSRF I 30 . 334 335 i 
RULEDSRF (31.111. 333 ) 

RULEDSRF (33.161 3341 
RULEDSRF (33.161.111) 

( * 

C DEFINE SURFACES FOR REGION 6 

<* 

RULEDSRF (35.400.326) 

RULEDSRF (36,402.325) 

RULEDSRF (37,400,402) 

RULEDSRF (38.322,338) 

RULEDSRF (39.316.315) 

(’ 

(* DEFINE SURFACES FOR REGION 7 

<* 

RULEDSRF (40.203.205) 

RULEDSRF (41,302.303) 

RULEDSRF (42.203.303) 

RULEDSRF (43,205.302) 

RULEDSRF (44.321.223) 

RULEDSRF (45.231.232) 

( * 

{' DEFINE SURFACES FOR REGION 8 

<* 

RULEDSRF (50,339.321) 

RULEDSRF (51.105.337) 

RULEDSRF (52.155,336) 

RULEDSRF (53.105.155) 

C 

(* DEFINE SURFACES FOR REGION 9 

<* 

RULEDSRF ( 54 . 339 . 323 ) 

RULEDSRF (55.401.328) 

RULEDSRF (56.403.327) 

RULEDSRF (57.401.403) 

RULEDSRF ( 58 . 245 . 339 ) 


* 

* 


- BROACH REGION DEFINITIONS - 
DEFINE ESMOSS REGIONS 

♦ 

* 

* 

* 

* 

DEFINE REGION 1 



REG3D (1. 1. 2, 3. 4. 5. 6, & 

322. 235. 330, 332, 250, 253. 260, 261, 310. 311. 340, 220. & 

C‘?U3H\»AL PAGE «S 
Cr F OR QUALITY 
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n i 5 << ]>)'< 210 -ill 900 i 

i'i i i m region 

KKG3D 1-3. 7. 8. A 14. 9. 1<>. fic 

413. 433. 251. 254 . 330. 331. 333. 333. 235. 234. 340. 341. cc 

900. 901. 109. 1 5m . 902. 903. 103 1531 


( ’ 

(. DEFINE REGION 3 

< ’ 

REG3D (3. 11. 12.13. 14. 15. 16, & 

323, 234. 331, 333. 252. 255. 262. 263. 312, 313. 222. 341, & 
55, 61, 153, 103. 212. 213. 901. 903) 

(. DEFINE REGION 4 

< * 

REG 3D (4. 20. 21. 22. 23. 24. 25. & 

202. 204, 300. 301 320. 221. 230. 233. 236, 237. 112, 162, & 

6, 12. 200. 201. 113. 163. 112. 162) 

<* 

(. DEFINE REGION 5 

C 

REG3D (5. 21. 30. 31. 32. 33. 39. & „ 

233, 244, 300. 301. 320. 315. 111. 161. 338, 334. 335. 316. & 
111! 112. 161. 162. 205. 206. 200. 201) 


( * 

(. DEFINE REGION 6 

(* 

REG3D (6. 2. 35. 36, 37. 38. 39. & 

400. 402. 235. 244. 310. 311. 
109. Ill . 159. 161 . 210, 211 . 


322. 338. 325. 326. 315. 316. & 
205, 206) 


C 

<* 

<’ 

REG3D 


DEFINE REGION 7 

( 7 . 40 . 41 . 42 . 43 . 44 . 45 . & 

231. 232. 223. 321 302. 205. 303. 203 

106. 156. 107. 157. 56. 62. 202. 2031 


106 . 156 . 240 . 241. & 


< * 

<* DEFINE 

<* 

REG3D ( 8 . 41. 50 . 51. 

232. 245. 302. 
105. 106. 155 


REGION B 


303 . 321 31V 

156. 207 . 2 UR 


2U2 . 


155. 339. 336. 337. 318. & 
203 ) 


(* 

(. DEFINE REGION 9 

C 

REG3D (9. 54. 55. 56. 57. 58. 12. & 

401. 403. 234. 245, 312. 313. 323. 339. 328. 327. 317. 318. & 
103. 105. 153. 155. 212. 213. 207. 208) 


( 

( 

( 


DISCRETIZE REGIONS 1 - 7 
PRINT INPUT THE NUMBER OF NODES PER EDGE 
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( ’ READ BNODE 
BNODE- 3 


D1S8NBKK 
D I SEDGE 
DI SEDGE 
D I SEDGE 
END1SCRT 

< * 

DIS8NBRK 
D I SEDGE 
DI SEDGE 
D I SEDGE 
ENDISCRT 
C 

DIS8NBRK 
D I SEDGE 
D I SEDGE 
ENDISCRT 

<* 

DIS8NBRK 
D I SEDGE 
D I SEDGE 
D I SEDGE 
ENDISCRT 

C 

DIS8NBRK 
D I SEDGE 
D I SEDGE 
D I SEDGE 
ENDISCRT 

<’ 

D1S8NBRK 
Dl SEDGE 
D I SEDGE 
D I SEDGE 
ENDISCRT 

C 

DIS8NBRK 
D I SEDGE 
D I SEDGE 
D I SEDGE 
ENDISCRT 

(* 

D1S8NBRK 
DI SEDGE 
D I SEDGE 
D I SEDGE 
ENDISCRT 

(* 

DIS8NBRK 
D I SEDGE 
D I SEDGE 


( 1 ) 

( 330 . BNODE ) 
(310. BNODE ) 
( 330 . BNODE » 


( 2 ) 

(412, BNODE) 
( 330 . BNODE ) 
(340, BNODE) 


(3) 

(323. BNODE) 
(252, BNODE) 


(4) 

( 202 , BNODE ) 
( 300 , BNODE ) 
(3 20. BNODE) 


(5) 

(111. BNODE ) 
( 334 , BNODE > 
( 338 . BNODE ) 


(6) 

( 400 . BNODE > 
(338, BNODE) 
(325, BNODE) 


( 7 ) 

(223 .BNODE > 
( 303 . BNODE > 
( 106. BNODE ) 


(8) 

(105, BNODE ) 
(339 .BNODE ) 
(336, BNODE! 


(9) 

(401 .BNODE) 
(234, BNODE) 



DIFEIXSE (3 12 
DI3ED0E (339 
DliEDOE ( 33V 
P ! SEDGE < 317 
ENDISCKT 

END RECIPE 


. BN ODE ) 

, BNODE ) 
. BNODE > 
. BNODE ) 
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Airfoil - Parametric Model 


Leading 

Edge 



Trailing 

Edge 


e 'p Camber Angle 
e C ' Chord 

e c/C - Maximum Thickness /Chord 

In 

e Section Height 
e Section Offset 


19 ? 




Airf'M i 


In ;-■( re 1 e Model 
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< ’ 

i • AIRFOIL KH< ' i ! T 

( • 

(’ -- AIRFOIL input data -- 

< * - USER PROMPTS - 

( • 

( ’ 

PRINT INPUT THE CAMBER ANGLE OF THE AIRFOIL IN DEGREES 
( ’READ CAMBER 
CAMBER=60 

C 

PRINT INPUT THE CHORD LENGTH OF THE AIRFOIL 
(♦READ CHORD 
CHORD= 1 0 

<* 

PRINT INPUT THE MAXIMUM THICKNESS DIVIDED BY THE CHORD LENGTH 
(♦READ THICKCH 
THICKCH= 9 

(* 

PRINT INPUT THE SECTION HEIGHT 
( ’READ HEIGHT 
HE1GHT=4 

(* 

PRINT INPUT THE SECTION OFFSET 
(♦READ OFFSET 
OFFSET= .5 

(* 

( * 

(♦ RECIPE CALCULATIONS TO DEFINE THE AIRFOIL 

( * 

(* RADIUSM = RADIUS TO DEFINE THE MIDDLE OF THE AIRFOIL 

(» RAD I US I = RADIUS TO DEFINE THE INNER ARC OF THE AIRFOIL 

(• RAD1USO ■* RADIUS TO DEFINE THE OUTER ARC OF THE AIRFOIL 

(* 

THICK = CHORD ’THICKCH 
CAMBER = RAD IAN (CAMBER) 

X1=0 

Y1=0 

( * 

RADIUSM = CHORD 1 * S I N ( CAMBER - > ) 

( ’ 

X5=RADIUSM*S1N( CAMBER ?.) 

Y5=RAD I USM 4 COS (CAMBER 2) 

(* 

X4=-X5 

Y4=Y5 

(* 

X2=X1 

Y2=Yl+( THICK/2) 

(* 

X3=X 1 

Y3=Yl-(THlCK/2 ) 
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- AIRFOIL POINT DEFINITIONS - 
DEFINE ESMOSS POINTS 


( ’ 

<* 

< * 

C 

(• PI CENTER POINT TO DEFINE THE CIRCULAR ARC 

<• P2 CENTER POINT TO DEFINE INNER ARC 

<’ P3 CENTER POINT TO DEFINE OUTER ARC 

(* P4.6 POINT TO DEFINE THE LEADING EDGE 

(• P5.7 POINT TO DEFINE THE TRAILING EDGE 

( * 

(* PI 1— PIT TOP OF AIRFOIL CROSS-SECTION 

C 

SETMODEL ( X4 . 0 . 0 . X5 . RAD 1 USM+TH I CK . HE I GHT > 

(* 

(’ DEFINE BOTTOM OF AIRFOIL 

<’ 

POINT (1.0,00) 

POINT (2.X2.Y2.0) 

POINT (3.X3.Y3.0) 

POINT (4.X4.Y4.0) 

POINT (5.X5.Y5.0) 

POINT (6.X6.Y6.0) 

POINT (T.X7.Y7.0) 

< ’ 

<» DEFINE TOP OF AIRFOIL 

C 

POINT ( 11 .OFFSET, 0. HEIGHT) 

POINT (12, X2+OFFSET . Y2 . HE I GHT ) 

POINT ( 13 .X3+OFFSET Y3 .HEIGHT > 

POINT (1 4. X4+OFFSET.Y4 HEIGHT) 

POINT (15.X 5+OFF SET Y r - HEIGHT ) 

POINT (16. X6+OFFSET Y6 HEIGHT) 

POINT ( 17.X7+OFFSET Y7 HEIGHT) 

C 

<♦ DEFINE ESMOSS CURVES 

<♦ 

<’ BOTTOM OF AIRFOIL 

C 

ARC (13,4,5) 

ARC (2. 2, 6, 7) 

LINE (3.4,6) 

LINE (4.5.7) 

C 

(• TOP OF AIRFOIL 



arc m r j . . 1 4 1 6 i 
ak* * ) - i if’ r- > 

Ll NE < 1 1 4 . 1 <> i 

LINE <1415.171 
I ’ 

< • CONNECT TOP ANI> BOTTOM 

( ’ 

LINE (21,4.14) 

LINE (22,5,15) 

LINE (23.6, 16) 

LINE (24.7.17) 

<• 

(* DEFINE ESMOSS SURFACES 

<* 

RULEDSRF (1.1.2) 

RULEDSRF (2,11.12) 

RULEDSRF (3.1.11) 

RULEDSRF (4.2.12) 

RULEDSRF (5.3.13) 

RULEDSRF (6.4.14) 

C 

(* DEFINE ESMOSS REGIONS 

C 


REG3D 

(1. I- 
1 , 

2 . 
o 

3 . 
3 

4 . 
4 , 

5. 6. & 

11. 12. 

13. 

14 21 . 22. 23, 24. & 


4 , 

5. 

fi . 

T . 

14. 15. 

16 . 

17) 


C 

( * 

PRINT INPUT THE NUMBER OF NODES ALONG THE PRESSURE SIDE 
( • READ PNODE 
PNODE=3 
C 

PRINT INPUT THE NUMBER OF NODES ALONG THE LEADING EDGE 
(* READ LNODE 
LNODE=2 

C 

PRINT INPUT THE NUMBER OF NODES ALONG THE AXIS 
( * READ ANODE 
ANODE=2 

C 

DIS8NBRK < 1 ) 

D I SEDGE (1. PNODE) 

DI SEDGE (3. LNODE) 

D1 SEDGE (13. ANODE) 

END I SCRT 

<* 

END RECIPE 


ORiGIIVAL PAGE ?S 
OF POOR QUALITs f 
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Dovetail-Platform - Parametric Model 
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Dovetail-Platform - Parametric Mode] 


R RADIUS TO CENTER OF PRESSURE FACE 

<•» LENGTH OF PRESSURE FACE 

ANGLE OF PRESSURE FACE 
Mi DISTANCE TO DOVETAIL BOTTOH 

T. THICKNESS AT DOVETAIL BOTTOH 

Hz DISTANCE TO HIN NECK 

Tj THICKNESS AT HIN NECK 

Rr FILLET RADIUS FROH PRESSURE FACE TO HIN NECK 
6K» PLATFORN UIDTH (RIGHT) 

PLATFORN UIDTH (LEFT) 
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PL (A 


Dovet ai ] -PI at f orm - Parametric Model 
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Dovftai ) -PI a t form - 


Par ame t r 1 < Mode 1 


Tit THICKNESS OF PLATFORN 

•fi HEIGHT OF PLATFORN AT Z-0. 

ANGLE OF PLATFORN 
on, PLATFORN OVERHANG (FUD) 

«*» PLATFORN OVERHANG (AFT) 

(.gr LENGTH OF DOVETAIL (AXIAL) 

OFFSET FOR FORWARD PLATFORN DOVETAIL INTERSECTION 
OFFSET FOR AFT PLATFORN DOVETAIL INTERSECTION 
AY, AXIAL OFFSET FOR AFT DOVETAIL CUTOUT 
as, RADIAL OFFSET FOR AFT DOVETAIL CUTOUT 
AY, AKlAc OFFSET FbR FoRu>AR& bbvETAlL CUTOVT 
R*»|Ai L. OFFSET FOR FofttOAAb 'DOvCTAU. CUTOUT 
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Dovetail-Platform - Geometric Model 
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Dovet m 1-Plat form - Discrete Mode! 
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DOVETAIL RECIPE 


( • 

» • 

< ’ 

<• — DOVETAIL INPUT DATA -- 

< ’ 

(' PARAMETERS BASED ON DOVETAIL CROSS SECTION 

< • 

PRINT RADIUS TO CENTER OF PRESSURE FACE = 

(•READ CTRFAC 
CTRFAC=5 
(* 

PRINT LENGTH OF PRESSURE FACE = 

(•READ RLNFAC 
RLNFAC=1 
(* 

PRINT ANGLE OF PRESSURE FACE (IN DEGREES) = 

(•READ ANGFAC 
ANGFAC=45 

ANGFAC = RAD I AN (ANGFAC I 

C 

PRINT DISTANCE TO DOVETAIL BOTTOM = 

(•READ DISBTM 

DISBTM=2 

C 

PRINT THICKNESS AT DOVETAIL BOTTOM = 

(•READ THKBTM 
THKBTM=3 

C 

PRINT DISTANCE TO MIN NECK = 

(•READ DISNEK 
DISNEK=2 

C 

PRINT THICKNESS AT MIN NECK = 

(•READ THKNEK 
THKNEK=2 
(* 

PRINT FILLET RADIUS FROM PRESSURE FACE TO MIN NECK = 

(•READ FILRAD 

FILRAD=4 

C 

PRINT PLATFORM WIDTH (RIGHT • 

(•READ PLTWDR 
PLTWDR=3 . 2 
(» 

PRINT PLATFORM WIDTH (LEFT) = 

(•READ PLTWDL 
PLTWDL=3 6 
<* 

(* PARAMETERS BASED ON DOVETAIL CENTERLINE' VIEW 
(* 

PRINT THICKNESS OF PLATFORM = 

(•READ THKPLT 
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THKF’LT ) 

< ' 

PRINT HEIGHT OF PLATFORM AT ( 7.=u i - 

( ’ REAP HTPLTd 

HTPLTO=f> 

< ’ 

PRINT ANGLE OF PLATFORM (IN DEGREE? ) = 

(’READ ANGPLT 
ANGPLT=0 

ANGPLT = RAD I AN (ANGPLT) 

<* 

PRINT PLATFORM OVERHANG (FORWARD) = 

(•READ PLTOVF 
PLTOVF=l 
<* 

PRINT PLATFORM OVERHANG (AFT) - 
(•READ PLTOVA 
PLTOVA=2 
(* 

PRINT LENGTH OF DOVETAIL (AXIAL) = 

(•READ DOVAXL 
DOVAXL=6 

PRINT OFFSET FOR FORWARD PLATFORM./DOVETAI L INTERSECTION 
(•READ FWDOFF 
FWDOFF= 5 
( * 

PRINT AXIAL OFFSET FOR FORWARD DOVETAIL CUTOUT = 

( ’READ AXFCUT 
AXFCUT= 1 
( * 

PRINT RADIAL OFFSET FOR FORWARD DOVETAIL CUTOUT - 
(•READ RDFCUT 
RDFCUT=1 
< * 

PRINT OFFSET FOR AFT PLATFORM/DOVETAIL INTERSECTION - 
(•READ AFTOFF 
AFTOFF=l 
C 

PRINT AXIAL OFFSET FOR AFT DOVETAIL CUTOUT = 

(•READ AXACUT 
AXACUT=2 
( • 

PRINT RADIAL OFFSET FOR AFT DOVETAIL CUTOUT = 

(•READ RDACUT 
RDACUT=1 
<* 

<* 

(. — DOVETAIL POINT DEFINITIONS — 

<’ 

XI = THKBTM/2 

Y1 = CTRFAC - DISBTM 

(* 
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( * 


X4 = THKNEK 2 
Y4 = CTRFA*' - DISNEK 

Jj = < a 4 -t FILKAD) - < FILKAD * ?1 Ni AN<il- A< • > 

V3 = Y4 - (FILRAD • COS < ANGFA( ) ) 

X:? = X3 + (RLNFAC • COS(ANGFAC)) 

Y - = V3 - (RLNFAC * SIN(ANGFAC)) 

( * 

122 = CTRFAC + HTPLTO + ((DOVAXL + AFTOFF) * TAN(ANGPLT)) 

Z22 = DOVAXL + AFTOFF 

X50 = PLTWDR + X4 

Y50 = Y22 + ((PLTOVA -AFTOFF) * TAN ( ANGPLT ) ) 

Z50 = Z22 + (PLTOVA - AFTOFF) 

( * 

(’ SET MODEL MINIMUM AND MAXIMUM 

C 

SETMODEL ( -X4-PLTWDL Yl -PLTOVF, X4+PLTWDR. Y50+THKPLT , Z50) 


C 

r 


POINT 

(1. 

XI , 

Yl . 

0) 

POINT 

(2. X2 , 

Y2 . 

0) 

POINT 

(3. 

X3 . 

Y3 . 

0 ) 

POINT 

) 

(4. 

X4. 

Y4 . 

0) 

POINT 

(5. -XI . 

Yl . 

0) 

POINT 

(6.-X2, 

Y2 . 

0 ) 

POINT 

( 7 . -X3 . 

Y3 . 

0) 

POINT 

( 8 . -X4 . 

Y4. 

0) 

POINT 

(9. XI. 

Yl . 

DOVAXL ) 

POINT 

(10. 

X2 

. Y2 

. DOVAXL) 

POINT 

(11. 

X3 

. Y3 

. DOVAXL) 

POINT 

(12. X4 

, Y4 

. DOVAXL) 

POINT 

( 13. -XI . 

Y 1 

DOVAXL) 

POINT 

( 14 .-X2 . 

Y2 . 

DOVAXL) 

POINT 

( 15.-X3. 

Y3 . 

DOVAXL ) 

POINT 

< 16 .-X4 . 

Y4 

DOVAXL ) 


BASE FRONT RIGHT 


BASE FRONT LEFT 


BASE BACK RIGHT 


BASE BACK LEFT 


YI7 = Y4 + AXFCUT 

Y18 = CTRFAC + HTPLTO - < FWDOFF ’ TAN( ANGPLT)) 
POINT (17. X4 . Y17. RDFCUT ) 

POINT (18. X4. Y 18. -FWDOFF) 


CUTOUT FRONT RIGHT 


POINT (19.-X4, Y17. RDFCUT) 
POINT (20.-X4, Y 18. -FWDOFF) 

♦ 

Y21 = Y4 + AXACUT 
Z21 = DOVAXL - RDACUT 
POINT (21. X4, Y21, Z21) 
POINT (22. X4, Y22 . Z22) 


CUTOUT FRONT LEFT 
CUTOUT BACK RIGHT 



n'T«>\ : T BACK LEFT 


POINT < 23 . ->4 Y2 1 \ ) 

pulNT < .2-1 -» Y22 

I ' 

X25 - X4 + FILKAD 
POINT (25. X25 . Y4 . 0) 

POINT (26.-X25. Y4 . 0) 

{ ’ 

POINT (27, X25 . Y4 , DOVAXL) 

POINT (28.-X25, Y4. DOVAXL) 

( * 

POINT (50, X50 . Y50 , Z50) 

(* 

X51 = -PLTWDL - X4 
Y 52 = Y18 - ( ( PLTOVF - FWDOFF ) * 

Z52 = -PLTOVF 
POINT (51. X51. Y50 . Z50) 

POINT (52. X50 , Y52. Z52) 

POINT (53. X51 . Y52. Z52) 

(* 

Y54 = Y50 + THKPLT 
Y56 = Y52 + THKPLT 
POINT (54, X50 . Y54 . Z50) 

POINT (55. X51. Y54. Z50) 

POINT (56, X50 . Y56 . Z52) 

POINT (57, X51. Y56 Z52) 

(* 

POINT (60, X4 . Y50 . Z50) 

POINT (61.-X4, Y50 . Z50) 

POINT (62.X51. Y22 . Z22) 

POINT (63.X51, Y'18. -FWDOFF) 

POINT (64.-X4. Y52 . Z52) 

POINT (65. X4 , Y52 . Z52) 

POINT (66.X50. Y18. -FWDOFF) 

POINT (67.X50. Y22 . Z22 ) 

C 

Y72 = Y22 + THKPLT 
Y73 = Y18 + THKPLT 

(* 

POINT (70. X4 . Y54 Z50) 

POINT (71.-X4. Y54 Z50 I 

POINT (72.X51. Y72 . Z22 I 
POINT . (73 ,X51 . Y73. -FWDOFF) 
POINT (74.-X4, Y56 Z52) 

POINT (75, X4 , Y56 . Z52) 

POINT (76.X50, Y73. -FWDOFF) 
POINT (77.X50. Y72 , Z22) 

POINT (78, X4, Y72 , Z22) 

POINT (79, -X4, Y72, Z22) 

POINT (80, X4 , Y73 . -FWDOFF) 
POINT (81.-X4, Y73 , -FWDOFF) 

— DOVETAIL CURVE DEFINITIONS 


\K< < 'ENTERS FRONT 

ARC CENTERS BACK 
DOVETAIL PLATFORM 

TAN ( ANGPLT ) ) 

BACK OF PLATFORM 

INTERIOR PLATFORM POINTS 
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t ' 


) • 


LINE 

i l . l . » 

LINE 

t 2 . 2 . 3 > 

ARC 

( 3 . 25 . 3 . 4 » 

MKGCURVE 

< ’ 

LINE 

(4, 2. 3) 

(5, 5. 6) 

LINE 

(6, 6. 7) 

ARC 

(7, 26. 7, 8) 

MRGCURVE 

(8. 6. 7) 

<* 

LINE 

(9, 1. 5) 

LINE 

(10. 2. 6) 

LINE 

( 11 . 4, 8) 

<* 

LINE 

(12. 9, 10) 

LINE 

(13. 10. 11) 

ARC 

(14. 27. 11. 12) 

MRGCURVE 

(15. 13. 14) 

<* 

LINE 

(16, 13. 14) 

LINE 

(17. 14. 15) 

ARC 

(18. 28. 15. 16) 

MRGCURVE 

(19, 17. 18) 

<* 

LINE 

(20, 9. 13) 

LINE 

(21. 10. 14) 

LINE 

(22. 12. 16) 

C 

LINE 

(23. 1. 9) 

LINE 

(24. 2. 10) 

LINE 

(25. 4. 12) 

<• 

LINE 

(26. 5. 13) 

LINE 

(27. 6. 14) 

LINE 

(28. 8. 16) 

<’ 

PARABOLA 

( 29 , 17 . 4 . 18 » 

PARABOLA 

(30. 19. 8. 20) 

C 

PARABOLA 

(31, 21, 12. 22) 

PARABOLA 

(32. 23. 16. 24) 

<* 

(* — DOVETAIL / PLATFORM 

<* 

<’ 

LINE 

(33, 18, 20) 

LINE 

(34, 22, 24) 

LINE 

(35. 18. 22) 

LINE 

(36, 20, 24) 


BASE front right 
base front left 

CONNECT BASE FRONT 
BASE BACK RIGHT 

BASE BACK LEFT 

CONNECT BASE BACK 

CONNECT BASE RIGHT 

CONNECT BASE LEFT 

CUTOUT FRONT 
•UTOUT BACK 

INTERFACE — 

BOTTOM 


< 

< 


DOVETAIL PLATFORM 



CONNECT OUTER PERIMETER 


< ’ 


LINE 

< 50 . 

00 . 

60) 

LINL 

( 51 . 

fiu . 

61 ) 

LINE 

( 52 . 

61 . 

51 1 

LINE 

(53. 

52 . 

65) 

LINE 

(54 . 

65. 

64 ) 

LINE 

(55, 

64 . 

53) 

LINE 

(56, 

53. 

63) 

LINE 

(57, 

63. 

62) 

LINE 

(58. 

62, 

51) 

LINE 

(59. 

52, 

66) 

LINE 

(60. 

66, 

67) 

LINE 

(61 . 

67, 

50) 


(’ 

C 


LINE 

(62, 

22, 

60) 

LINE 

(63. 

24, 

61 ) 

LINE 

(64 . 

24. 

62) 

LINE 

(65. 

20, 

63) 

LINE 

(66, 

64. 

20) 

LINE 

(67. 

65, 

18) 

LINE 

(68. 

66, 

18) 

LINE 

<69. 

67, 

22) 


C 


LINE 

(70. 54. 70) 

LINE 

(71, 70, 71) 

LINE 

(72, 71, 55) 

LINE 

(73. 56. 75) 

LINE 

(74. 75. 74) 

LINE 

(75, 74. 57) 

LINE 

(76, 57, 73) 

LINE 

(77. 73, 72) 

LINE 

(78. 72, 55) 

LINE 

(79, 56. 76) 

LINE 

(80. 76, 77) 

LINE 

% 

(81, 77. 54) 

> 

LINE 

(82. 78. 70) 

LINE 

(83. 79. 71) 

LINE 

<84. 79, 72) 

LINE 

(85. 81. 73) 

LINE 

(86. 74, 81) 

LINE 

(87. 75. 80) 

LINE 

(88. 76. 80) 

LINE 

* 

(89, 77. 78) 

LINE 

(90. 60. 70) 

LINE 

(91 , 61 . 71 ) 

LINE 

(92. 62, 72) 

LINE 

(93. 63, 73) 

LINE 

(94. 64, 74) 

LINE 

(95, 65, 75) 


CONNECT PERIMETER TO INTERIOR 
POINTS 


CONNECT OUTER PERIMETER PTS 


CONNECT BACK PERIMETER TO 
INTERIOR POINTS 


CONNECT FRONT TO BACK 
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LINE 

( 06 . 

66 . 

76 i 

LINE 

( 07 . 

67. 

77 ) 

LINE 

t 08 

♦ J . 

78 l 

LINE 

( 09 

£4 

70 t 

LINE 

( 100 . 

18. 

80 t 

LINE 

<101 . 

20 . 

81) 

LINE 

(102. 

78. 

79) 

LINE 

(103. 

80, 

81) 

LINE 

(104. 

. 80, 

78) 

LINE 

(105, 

, 81. 

79) 

LINE 

(110, 

. 50, 

54) 

LINE 

(111 

. 51. 

55) 

LINE 

(112, 

. 52. 

56) 

LINE 

(113, 

. 53, 

57) 


<* 

(’ 

(* — DOVETAIL SURFACES 

(* 

(* 


RULEDSRF 

RULEDSRF 

RULEDSRF 

RULEDSRF 

RULEDSRF 

RULEDSRF 

C 

RULEDSRF 

RULEDSRF 

RULEDSRF 

RULEDSRF 

RULEDSRF 

<• 

RULEDSRF 

RULEDSRF 

RULEDSRF 

RULEDSRF 

RULEDSRF 

( 4 

RULEDSRF 

RULEDSRF 

RULEDSRF 

RULEDSRF 

RULEDSRF 

RULEDSRF 

<* 

RULEDSRF 

RULEDSRF 

RULEDSRF 

RULEDSRF 

RULEDSRF 

C 

RULEDSRF 


(1. 

1 , ! 

3) 

(2. 

12. 

16) 

(3, 

1 , 

12) 

(4. 

5. 

16) 

(5. 

9, ; 

20) 

(6. 

10, 

21 ) 

(7. 

4. 1 

B) 

(8. 

15, 

19) 

(9. 

4, 

15) 

do. 

8, 

19) 

(11. 

11 

. 22) 

(12. 

29 

. 30) 

(13. 

31 

, 32) 

(14. 

29 

• 31) 

<15. 

30 

. 32) 

< 16. 

33 

. 34) 

(20, 

56 

. 76) 

(21 . 

66 

. 86) 

(22. 

. 55 

. 75) 

(23, 

65 

. 85) 

(24. 

75 

. 85) 

(25. 

55 

. 65) 

(26. 

66 

. 67) 

(27. 

54 

. 74) 

(28, 

. 100,95) 

(29. 

86 

. 87) 

(30. 

33 

. 103) 

(31. 

59 

. 67) 


BASE BOTTOM 


BASE TOP 


CUTOUT 


PLATF«>KM LOWER LEFT 


PLATFORM LOWER MIDDLE 


PLATFORM LOWER RIGHT 
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RULEDSRF ( 


53 

73 1 

RULEDSRF < 

_* -> . 

96 . 1 

1 1 2 > 

RULEDSRF < 

34 . 

i j 

88 ) 

RULED' KF ( 

; 35 . 

68 . 

88 > 

( 

RULEDSRF i 

I 36 . 

67 . 

77 ) 

RULEDSRF 

1 37 , 

57. 

36) 

RULEDSRF 

(38. 

77 . 

105) 

RULEDSRF 

(39. 

36. 

105) 

RULEDSRF 

(* 

RULEDSRF 

(40, 

64, 

84) 

(41 . 

35. 

36) 

RULEDSRF 

(42, 

104 . 

105) 

RULEDSRF 

(’ 

RULEDSRF 

<43. 

98, 

99) 

(46, 

35. 

104) 

RULEDSRF 

(47, 

35. 

60) 

RULEDSRF 

(48, 

60, 

80) 

RULEDSRF 

(49, 

69. 

89) 

RULEDSRF 

(* 

RULEDSRF 

(50. 

80. 

104) 

(51 , 

92. 

111) 

RULEDSRF 

(52, 

99. 

91) 

RULEDSRF 

(53, 

64 , 

52) 

RULEDSRF 

(54. 

52, 

, 72) 

RULEDSRF 

< * 

RULEDSRF 

(55. 

72, 

. 84) 

(56. 

98 

. 90) 

RULEDSRF 

(57. 

99 

.98) 

RULEDSRF 

(58. 

90 

• 91) 

RULEDSRF 

(59 

, 62 

. 63) 

RULEDSRF 

< ’ 

RULEDSRF 

<60 

, 82 

. 83) 

(61 

. 61 

■ 81) 

RULEDSRF 

(62 

. 69 

. 89) 

RULEDSRF 

(63 

. 69 

. 50) 

RULEDSRF 

<64 

. 50 

. 70) 

RULEDSRF 

(65 

. 89 

, 70) 


PLATFORM MIDDLE LEFT 


PLATFORM MIDDLE 


PLATFORM MIDDLE RIGHT 


PLATFORM UPPER LEFT 


PLATFORM UPPER MIDDLE 


PLATFORM UPPER RIGHT 


( * 

( * — REGIONS — 

< • 


REG3D 

(1 • 

1 . 

2. 

3, 

4. 5. 6. & 



1 . 

5, 

9. 

10, 12, 16. 20. 21. 23. 24. 26, 27. & 



1 , 

2, 

5, 

6. 9. 10, 13. 14) 

( ’ 

REG3D 

(2. 

6, 

t , 

8, 

9, 10 , H. & 



4 , 

8, 

10 

11. 15, 19. 21, 22, 24. 25. 27. 28. & 



2, 

4, 

6 , 

8, 10, 12, 14. 16) 


<* 

REG 3D (3, 11, 12, 13, 14, 15, 16, & 

11, 29, 30, 33, 22. 31, 32, 34. 25. 35, 28, 36. & 
4, 8, 18, 20, 12, 16, 22, 24) 


<* 
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REG 3D 

< 4 

20 

21 

O 7' 

27 . 

2 4 











56 . 

76 

00 . 

70 . 

66 

86 

i ; 

1 1 •?. . 

i r'( 

101 . 

94 . 

85 . 




3 ?« 

07 . 

63 

7 

64 

. ‘ 

\ 

; j . ; i 






REG 31) 

< 0 . 

21 . 

26 

» i . 

28 . 

29 . 

7() 

t v 









66. 

67 , 

04 , 

33. 

86 

101 

. 100 

. 90 

. 87 

. 1U3 

. 74 

. 94 

. & 

* 


64 . 

60 , 

20. 

18 , 

80 . 

81 . 

74 . 

70 ) 






REG 3D 

(6, 

28. 

31 , 

32, 

33. 

34 , 

35. 

k 









95. 

100 

. 67, 

87 

. 53 

, 68 

, 59. 

73, 

112 

. 96, 

88. 

79. 

6c 

* 


65. 

75. 

18, 

80. 

52 . 

56. 

66, 

76) 






REG3D 

(7. 

23. 

36, 

37. 

38. 

39, 

40, 

k 









65. 

85. 

101 , 

93 

, 57 

***** 
> < * 

. 92. 

105 

. 36 

, 64, 

84. 

99, 

6c 



63. 

73, 

20. 

81 . 

62 . 

72. 

24. 

79) 






REG 3D 

(8. 

30. 

39. 

46 . 

41 . 

42. 

43 . 

k 









33. 

103 

. 101 

. . 100, 

36 , 

105. 

99 . 

35, 

104, 

98. 

34. 

102 

* 


20. 

81 . 

18. 

80 . 

24 . 

79. 

oo 

Kf , 

78) 






REG 3D 

(9. 

35, 

46. 

47, 

48, 

49. 

50 . 

k 









68. 

88. 

96. 

100 

. 35 

. 104, 98 

1. 60 

, 80 
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< • 


PRINT INPUT THE NUMBER OF NODES PER EDGE FOR THE DOVETA 1 L/SHANK 

< * READ DNODE 

DNODE=3 

< ’ 

DIS8NBRK (1) 

D I SEDGE (1. DNODE) 

D I SEDGE (9. DNODE) 

D1 SEDGE <23, DNODE) 

END1SCRT 

(’ 

DIS8NBRK (2) 

D I SEDGE (8. DNODE) 

D I SEDGE (24, DNODE) 

D I SEDGE (27, DNODE) 

END1SCRT 

( * 

D1S8NBRK (3) 
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I) I ?EIKjE ( 29 . DNODE ) 

D I SEDGE (3 3. DNODE) 

DI SEDGE ( 3ft. DNODE i 
EN1) 1 SORT 

( • 

D1S8NBRK (41 
DI SEDGE (56. DNODE) 

D1 SEDGE (93. DNODE) 

DI SEDGE (55 .DNODE ) 
ENDISCRT 

C 

DIS8NBRK (5) 

DI SEDGE (66. DNODE) 

DI SEDGE (95. DNODE) 

DI SEDGE (74. DNODE) 
ENDISCRT 

(* 

DIS8NBRK (6) 

DI SEDGE (59. DNODE) 
DI SEDGE (96. DNODE) 
DI SEDGE (68, DNODE) 
ENDISCRT 

DIS8NBRK (7) 

D I SEDGE (57. DNODE) 
DI SEDGE (65. DNODE) 

D I SEDGE (77, DNODE) 
ENDISCRT 
C 

D1S8NBRK (8) 

D I SEDGE (3 5, DNODE) 

D I SEDGE (99. DNODE) 

D 1 SEDGE (104. DNODE ) 
ENDISCRT 

(* 

DIS8NBRK (9) 

D I SEDGE (60, DNODE) 
DI SEDGE (69, DNODE) 
D I SEDGE (9 7, DNODE) 
ENDISCRT 

( - 

DIS8NBRK (10) 

DI SEDGE (92, DNODE) 
D I SEDGE (63. DNODE) 
DI SEDGE (78. DNODE) 
ENDISCRT 

(* 

D1S8NBRK (11) 

DI SEDGE (99, DNODE) 
DI SEDGE (63, DNODE) 
DI SEDGE (51 .DNODE) 
ENDISCRT 

<* 


D1S8NBRK <1- 
DISEIXiF i&J. 
1)1 SFlXit: Hi.; 
DISElxiE <Db 
END! SORT 

( r 

END RECIPE 


DNODE ) 
DNODE ) 
DNODE ► 
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Air-Cooled Turbine Blade - Geometric Model 



a 
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Air-Cooled Turbine Blade 


— Discrete Model 
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AIR COOLED TURBINE BLADE RECIPE 


< • 

< * 

<* — DOVETAIL INPUT DATA — 

( * - USER PROMPTS - 

( » 



PRINT 

PRINT !!' DEFINE THE DOVETAI L/SHANK M! 

PRINT 

PRINT INPUT THE LENGTH OF THE SHANK 
(•READ STHICK 
STH1CK =75 

(’ 

PRINT INPUT COOLING HOLE WALL THICKNESS 
(•READ WTHICK 
WTHICK = .6 

<* 

PRINT INPUT COOLING HOLE RIB THICKNESS 
(•READ RTHICK 
RTHICK = 1 

<* 

(• COMPUTE WIDTH OF COOLING HOLES 
HOLE = ( STHICK-(4*RTH1CK) )/3 

<* 

PRINT 

PRINT !!! DEFINE THE DOVETAIL/SHANK SECTION m 

PRINT THERE ARE 8 INPUT POINTS USED TO DEFINE THE DOVETAIL CROSS-SECTION 
PRINT POINT 1 DEFINES THE BOTTOM OF THE DOVETAIL 
PRINT POINT 7 DEFINES THE SHAPE AT THE TOP EDGE OF THE SHANK 
PRINT THE RADIUS OF EACH POINT IS MEASURED FROM THE BOTTTOM OF THE 
PRINT DOVETAIL 

PRINT THE THICKNESS IS MEASURED FROM THE CENTER-LINE POINT TO THE SIDE 
PRINT OF THE DOVETAIL 

PRINT THE ARC RADIUS DETERMINES THE CURVATURE OF THE DOVETAIL 
PRINT IF ARC RADIUS = 0, CONNECT BY STRAIGHT LINE FROM THE PRIOR POINT 
PRINT IF ARC RADIUS < 0, CONNECT BY CIRCULAR ARC WITH INTERIOR CENTER 
PRINT POINT 

PRINT IF ARC RADIUS > 0, CONNECT BY CIRCULAR ARC WITH EXTERIOR CENTER 

PRINT POINT 

PRINT 

PRINT INPUT FIRST DOVETAIL POINT - RADIUS, THICKNESS. ARC RADIUS 
(•READ DRADIUS1 
(•READ DTHICK1 
(•READ ARC1 



DRAD1US 1=1 
DTH 1 CK 1 = 1 1 
ARC 1=0 

(’ 

PRINT INPUT SECOND DOVETAIL POINT - RADIUS. THICKNESS. 
( 'READ DRAD1US2 
('READ DTHICK2 
( 'READ ARC 2 
DRADIUS2=2 
DTH1CK2= . 8 
ARC2-0 

(* 

PRINT INPUT THIRD DOVETAIL POINT - RADIUS, THICKNESS. 
('READ DRAD1US3 
('READ DTHICK3 
('READ ARC3 
DRADIUS3=3 
DTHICK3=1 .2 
ARC3=1 

(' 

PRINT INPUT FOURTH DOVETAIL POINT — RADIUS, THICKNESS 
('READ DRADIUS4 
('READ DTHICK4 
('READ ARC4 
DRADIUS4=4 
DTHI CK4= 1 3 
ARC4=— . 75 

(* 

PRINT INPUT FIFTH DOVETAIL POINT - RADIUS. THICKNESS. 
('READ DRADIUS5 
('READ DTHICK5 
('READ ARC 5 
DRADIUS5=6 5 
DTHI CK5=1 2 
ARC5=3 

(* 

PRINT INPUT SIXTH DOVETAIL POINT - RADIUS, THICKNESS. 
< 'READ DRAD1US6 
(’READ DTHICK6 
( 'READ ARC 6 
DRADIUS6=8 
DTHICK6=1 5 
ARC6=0 

(' 

( 

C 

PRINT 

PRINT ! ! ! DEFINE THE PLATFORM SECTION • ! • 

PRINT 

PRINT INPUT THE PLATFORM HEIGHT 
('READ PTHICK 
PTHI CK=3 

PRINT INPUT THE PLATFORM WIDTH 


ARC RADIUS 


ARC RADIUS 


, ARC RADIUS 


ARC RADIUS 


ARC RADIUS 
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< ’READ PWIDTH 
PWI DTH=6 

PRINT INPUT THE PLATFORM LENGTH 
( • HEAD PLENGTH 
PLENGTH= 1 f) 

PRINT INPUT THE PRESSURE SIDE SHIFT FROM THE CENTERED POSITION ON 
PRINT THE SHANK 
( ’READ FRTSHFT 
FRTSHFT= 5 

PRINT INPUT THE TRAILING EDGE SHIFT FROM THE CENTERED POSITION ON 
PRINT THE SHANK 
( ’READ SIDSHFT 
SIDSHFT=1 .0 

C 

C 

C 

(» DEFINE MACRO TO CALCULATE ARC CENTER POINT 
(* 

DEFINE CNTR-PT 

(’ 

RKSQ=RK * RK 

XMK=XM-XK 

YMK=YM-YK 

D I STSQ=XMK ’ XMK +YMK*YMK 

C 

SUMRSQ=RKSQ* 2 

ROOT=2*SUMRSQ*DI STSQ - DI STSQ* D I STSQ 
DSTINV=. 5/DISTSQ 
SCL= . 5 

C 

X=XMK*SCL +XK 
Y=YMK*SCL +YK 
ROOT=DST I NV * SQRT ( ROOT ) 

C 

XFAC=XMK * ROOT 
YF AC =YMK * ROOT 
C 

(* THE 2 ROOTS OF THE EQUATIONS FOLLOW - 2 POINTS AND A RADIUS 
(* DEFINE 2 POSSIBLE CENTER POINTS 
C 

XL=X+YFAC 

YL=Y-XFAC 

XR-X-YFAC 

YR=Y+XFAC 

C 

END CNTR-PT 

<• 

( * 

<’ 

C 

RK-3 

XK=1 
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YK= 1 

XM=2 

VM— 5r 

CNTR-PT 

X13-XL 

Y13-YL 


( * 


( 

< 

( 

( 

( 

< 

< 

( 

( 

( 

< 


, DOVETAIL POINT DEFINITIONS * 

* DEFINE ESMOSS POINTS * 

* 

* 

* P D1-D36 PERMANENT POINTS NEEDED TO DEFINE REGIONS 

* P912 - 937 TEMPORARY POINTS NEEDED TO DEFINE CURVES 

< 

* 

»*,***********»****»**•*»*************♦***♦********************** 


TIME = 1 


DOVE = 0 
LDOVE = 0 
YCORD = 0 


<* 

(* WOVRHANG = WIDTH OVERHANG OF THE PLATFORM FROM THE SHANK 
(* LOVRHANG = LENGTH OVERHANG OF THE PLATFORM FROM THE SHANK 

C 

WOVRHANG= ( PW I DTH- ( DTH I CK6 * 2 ) ) /2 
LOVRHANG= ( P LENGTH- STH 1 CK ) /2 

<* 

PTEMP 1 =-DTH I CK6-WOVRHANG+FRTSHFT 
PTEMP2=— LOVRHANG+S I DSHFT 
PTEMP3=DTH 1 CK+WOVRHANG+FRTSHFT 
PTEMP4=STH I CK+ LOVRHANG+S I DSHFT 


PRINT AT WHAT Z' VALUE DO YOU WANT THE FIRST CROSS-SECTION AT? 
(• READ ZVAL1 
ZVAL1=14 

C 

PRINT AT WHAT Z' VALUE DO YOU WANT THE TOP OF THE BLADE AT? 

(* READ ZVAL2 
ZVAL2=18 

(* 

PRINT AT WHAT ’Z' VALUE DO YOU WANT THE TIP CAP AT° 

(* READ ZVAL3 
ZVAL3=20 

(* 

SETMODEL ( PTEMP 1 . PTEMP2 , 0 . PTEMP3 . PTEMP4 , ZVAL3 ) 

<* 

REPEAT 


POINT (DOVE+1 .DTHICK1 .YCORD.DRADIUS1 ) 
POINT (912, DTH1CK2. YCORD, DRADIUS2) 
POINT (913, DTH1CK3, YCORD, DRADIUS3) 
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POINT (914. DTH I CK4 , YCORD . DRAD I US-1 ) 

POINT (917. DTH I CK5 . YCORD . DRAD I US5 ) 

POINT < DOVE- 1 - 2 . DTH 1 CK6 . YCORD . DRAD 1 USD \ 

( ’ 

POINT ( DOVE+3 . -DTH 1 CK 1 . YCORD . DRAD I US 1 > 

POINT (918. -DTH I CK2 . YCORD . DRAD 1 US2 ) 

POINT (919. -DTH I CK3 . YCORD . DRAD I US? 1 
POINT ( 920 , -DTHI CK4 . YCORD . DRADIUS4 } 

POINT ( 923 , -DTH I CK5 . YCORD , DRAD IUS5 ) 

POINT (DOVE+4.— DTHI CK6, YCORD, DRAD I US6) 

C 

POINT (DOVE+33 , -DTHICK1+WTHICK, YCORD.DRADIUS1 ) 

POINT ( DOVE+34 , -DTH I CK6+WTH I CK , YCORD , DRAD IUS6) 

POINT ( DOVE+3 5 . DTH I CK 1 -WTH I CK , YCORD . DRAD I US 1 ) 

POINT ( DOVE+36 . DTH I CK6-WTH I CK , YCORD , DRAD I US6 ) 

(* 

(* DEFINE CENTER POINTS FOR CURVES 

C 

(* DEFINE POINTS TO CONNECT FIRST AND SECOND POINTS IF NECESSARY 
<* IF ARC 2= 0. THEN CONNECT POINTS BY LINES 
(* ELSE CONNECT POINTS BY ARCS 

C 

IF ( ARC2 = 0) 

THEN 

LINE ( 101 , DOVE+ 1 .912) 

LINE ( 108, DOVE+3. 918) 

ELSE 

IF (ARC 2 < 0) 

THEN 

RK=-ARC2 

ELSE 

RK=ARC2 
ENDIF 
XK=DTHICK1 
YK=DRAD I US 1 
XM=DTH I CK2 
YM-DRAD1US2 
CNTR-PT 
IF ( ARC2 < 0) 

THEN 

POINT (924 ,XR. YCORD, YR) 

POINT (931 ,-XR. YCORD. YR) 

ELSE 

POINT <924, XL. YCORD, YL) 

POINT (931 , -XL, YCORD, YL) 

ENDIF 

ARC (101 .924.DOVE+1 ,912) 

ARC (108,931 .DOVE+3. 918) 

(* 

DELETEPT (924) 

DELETEPT (931) 

ENDIF 

<* 
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<« DEFINE POINT? TO CONNECT SECOND AND THIRD VALUES 
I* IF ARC 3 = 0. THEN CONNECT POINTS BY LINES. 

ELSE CONNECT POINTS BY ARCS 


IF < ARC 3 = 0 1 

THEN 

LINE 1102.912.913) 

line < ioy.yi8.yiy) 

ELSE 

IF (ARC3 < 0) 

THEN 

RK=-ARC3 

ELSE 

RK=ARC3 
END IF 

XK=DTH1CK2 

YK=DRADIUS2 

XM=DTH1 CK3 

YM=DRADIUS3 

CNTR-PT 

IF (ARC3 < 0) 

THEN 

POINT ( 925, XR. YCORD, YR) 
POINT ( 932 , -XR . YCORD , YR ) 
ELSE 

POINT (925 .XL. YCORD ,YL) 
POINT (932. -XL. YCORD. YL) 
END IF 

ARC (102.925.912,913) 

ARC (109,932.918,919) 

C 

DELETEPT (925) 

DELETEPT (932) 

END IF 


<• DEFINE POINTS TO CONNECT THIRD AND FOURTH VALUES 
<♦ IF ARC 4 = 0, THEN CONNECT POINTS BY LINES. 

( . ELSE CONNECT POINTS BY ARCS 

< * 

IF (ARC 4 = 0) 

THEN 

LINE ( 103,913.914) 

LINE (110.919,920) 

ELSE 

IF ( ARC 4 < 0) • 

THEN 

RK=-ARC4 

ELSE 

RK=ARC4 


END IF 

XK=DTHICK3 

YK=DRADIUS3 

XM=DTHICK4 
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YM=DRADIUS4 

CNTR-PT 

IF ( ARC 4 0) 

THEN 

POINT ( 92G . XR YCORD . YR I 
POINT ( 933 . -XR . YCORD . YR ) 

ELSE 

POINT (926. XL. YCORD. YU 
POINT (933, -XL. YCORD. YL) 

END IF 

ARC (103.926.913.914) 

ARC (110.933.919,920) 

( * 

DELETEPT (926) 

DELETEPT (933) 

ENDIF 

C 

(• DEFINE POINTS TO CONNECT SIXTH AND SEVENTH VALUES 
<• IF ARC 5 = 0. THEN CONNECT POINTS BY LINES. 

<* ELSE CONNECT POINTS BY ARCS 

(• 

( * 

IF ( ARC5 = 0) 

THEN 

LINE (106,914.917) 

LINE (113,920,923) 

ELSE 

IF ( ARC5 < 0) 

THEN 

RK=-ARC 5 
ELSE 

RK=ARC5 

ENDIF 

XK=DTH I CK4 

YK=DRADIUS4 

XM=DTH I CK5 

YM=DRADIUS5 

CNTR-PT 

IF (ARC5 < 0) 

THEN 

POINT ( 929. XR, YCORD, YR) 

POINT ( 936, -XR, YCORD, YR) 

ELSE 

POINT (929, XL. YCORD, YL) 

POINT (936, -XL. YCORD, YL) 

ENDIF 

ARC (106,929,914,917) 

ARC (113,936,920,923) 

C 

DELETEPT (929) 

DELETEPT (936) 

ENDIF 
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( ’ 

<* DEFINE POINTS TO CONNECT SEVENTH AND EIGHTH VALUES 
(* IF ARCG = 0. THEN CONNECT POINTS BY LINES 
(• ELSE CONNECT POINTS BY ARCS 

( ’ 

< * 

IF ( ARC6 = 0) 

THEN 

LINE ( 107, 9 17, DOVE+2) 

LINE (114, 923 , DOVE+4 ) 

ELSE 

IF (ARC6 < 0) 

THEN 

RK=— ARC6 
ELSE 

RK=ARC6 
END IF 

XK=DTH I CK5 
YK=DRADIUS5 
XM=DTHICK6 
YM=DRADIUS6 
CNTR-PT 
IF ( ARC6 < 0) 

THEN 

POINT ( 930 , XR , YCORD , YR ) 

POINT (937 ,-XR. YCORD. YR) 

ELSE 

POINT ( 930, XL, YCORD, YL) 

POINT (937, -XL, YCORD, YL) 

ENDIF 

ARC (107,930,917, DOVE+2 ) 

ARC ( 114, 937, 923, DOVE+4) 

C 

DELETEPT (930) 

DELETEPT (937) 

ENDIF 

( 

( 

( 

( 

( 

( 

< 

( 

(* DEFINE TOP CROSS-SECTION PIECE WITH STRAIGHT LINES 
(* 

LINE ( LDOVE+3 , DOVE+35 , DOVE+ 1 ) 

LINE ( LDOVE+4 . DOVE+33 , DOVE+35) 

LINE ( LDOVE+5 , DOVE+3 . DOVE+33 ) 

C 

LINE ( LDOVE +6 .DOVE+36 .DOVE+2) 

LINE ( LDOVE+7 , DOVE+34 . DOVE+36 ) 

LINE ( LDOVE+8 , DOVE+4 , DOVE+34 ) 
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- DOVETAIL CURVE DEFINITIONS - 
DEFINE ESMOSS CURVES 


( * 

LINE ( LDOVE+9 . DOVE+35 . DOVE+36 ) 

LINE ( LDOVE-IO DOVE+33 . DOVE+34 ) 

< * 

<• MERGE CURVES INTO ONE CURVE TO DEFINE A SURFACE 

( ’ 

MRGCURVE ( 150. 101 102) 

MRGCURVE ( 151 . 150.103) 

MRGCURVE (154,151.106) 

MRGCURVE (LDOVE+1 , 154, 107) 

<* 

<* 

MRGCURVE (155.108,109) 

MRGCURVE (156.155.110) 

MRGCURVE (159.156.113) 

MRGCURVE ( LDOVE+2 .159.114) 

C 

DELETEPT (912) 

DELETEPT (913) 

DELETEPT (914) 

DELETEPT (917) 

DELETEPT (918) 

DELETEPT (919) 

DELETEPT (920) 

DELETEPT (923) 

<* 

DELETECV (101) 

DELETECV (102) 

DELETECV (103) 

DELETECV (104) 

DELETECV (105) 

DELETECV (106) 

DELETECV (107) 

DELETECV (108) 

DELETECV (109) 

DELETECV (110) 

DELETECV (111) 

DELETECV (112) 

DELETECV (113) 

DELETECV (114) 

<• 

DELETECV (150) 

DELETECV (151) 

DELETECV (154) 

DELETECV (155) 

DELETECV (156) 

DELETECV (159) 

<* 

IF (MOD< TIME . 2 ) = 1) 

THEN 

YCORD=YCORD+RTHl CK 
ELSE 

YCORD=YCORD+HOLE 
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END IF 


( • 

D0VE=D0VE+4 

L1X)VE=LD0VE+1() 

TIME=T IME+ 1 

< * 

UNTIL <TIME=9) 

< * 

(* CONNECT CROSS-SECTIONS WITH LINES 
(* 

DOVE=0 

LDOVE=0 

C 

LINE ( LDOVE+8 1 . DOVE+ 1 , DOVE+5) 

LINE ( LDOVE+82 , DOVE+2 . DOVE+6) 

LINE ( LDOVE+83 , DOVE+35 . DOVE+39 ) 
LINE ( LDOVE+84 , DOVE+36 , DOVE+40 ) 
LINE ( LDOVE+85 , DOVE+ 33 , DOVE+37 ) 
LINE ( LDOVE+86 , DOVE+34 . DOVE+38 ) 
LINE ( LDOVE+87 , DOVE+3 .DOVE+7) 

LINE ( LDOVE+8 8 . DOVE+4 . DOVE+8) 

( * 

LINE ( LDOVE+89 , DOVE+5 . DOVE+9) 

LINE (LDOVE+90, DOVE+6. DOVE+IO) 
LINE ( LDOVE+9 1 . DOVE+39 . DOVE+43 ) 
LINE ( LDOVE+92 . DOVE+40 . DOVE+44 ) 
LINE (LDOVE+9 3. DOVE+3 7. DOVE+4 1) 
LINE ( LDOVE+94 , DOVE+38 . DOVE+42 ) 
LINE ( LDOVE+95 . DOVE+7 .DOVE+11) 
LINE ( LDOVE+96 , DOVE+8 . DOVE+12) 

(* 

LINE ( LDOVE+97 . DOVE+9 . DOVE+13) 
LINE ( LDOVE+98 . DOVE+ 1 0 . DOVE+ 1 4 ) 
LINE (LDOVE+99. DOVE+4 3. DOVE+4 7) 
LINE ( LDOVE+1 00. DOVE+44 , DOVE+48) 
LINE ( LDOVE+ 101, DOVE+4 1 . DOVE+45 ) 
LINE ( LDOVE+102 , DOVE+42 . DOVE+46 ) 
LINE ( LDOVE+ 1 03 . DOVE+ 1 1 . DOVE+ 1 5 ) 
LINE ( LDOVE+ 1 04 . DOVE+ 1 2 . DOVE+ 1 6 ) 

( ♦ 

LINE ( LDOVE+ 1 05 , DOVE+ 1 3 . DOVE+ 17) 
LINE ( LDOVE+ 1 06 , DOVE+ 1 4 . DOVE+ 1 8 ) 
LINE (LDOVE+1 07. DOVE+47. DOVE+5 1) 
LINE ( LDOVE+1 08. DOVE+48. DOVE+52) 
LINE ( LDOVE+1 09, DOVE+4 5. DOVE+49) 
LINE ( LDOVE+1 10, DOVE+46. DOVE+50) 
LINE ( LDOVE+1 1 1 . DOVE+ 1 5 , DOVE+ 1 9 ) 
LINE ( LDOVE+ 112, DOVE+ 1 6 , DOVE+20 ) 

C 

LINE ( LDOVE+ 113, DOVE+ 1 7 , DOVE+2 1 ) 
LINE ( LDOVE+ 114, DOVE+ 1 8 . DOVE+22 ) 
LINE (LDOVE+1 15. DOVE+5 1 .DOVE+5 5) 
LINE (LDOVE+1 16. DOVE+5 2, DOVE+5 6) 
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LINE ( LDOVE+1 1 7 . DOVE+49 . DOVE+53 ) 
LINE ( LDOVE+ 118. DOVE+50 . DOVE+ 54 ) 
LINE < LDOVE+ 119 DOVE+ 1 9 . DOVE +23 > 
LINE ( LDOVE+ 1 20 . DOVE+20 DOVE+24 ) 

< ' 

LINE (LDOVE+1 21 .DOVE+21 .DOVE+25) 
LINE ( LDOVE+1 22 . DOVE+22 DOVE+26 ) 
LINE (LDOVE+1 23. DOVE+55 . DOVE+59 > 
LINE (LDOVE+1 24, DOVE+56 . DOVE+60 ) 
LINE ( LDOVE+ 125. DOVE+53 . DOVE+57 ) 
LINE ( LDOVE+1 26 , DOVE+54 . DOVE+58 ) / 
LINE ( LDOVE+1 27, DOVE+23 . DOVE+27 ) ' 
LINE (LDOVE+1 28, DOVE+24 . DOVE+28 ) 

C 

LINE ( LDOVE+1 29, DOVE+25 .DOVE+29) 
LINE (LDOVE+1 30, DOVE+26 .DOVE+30) 
LINE ( LDOVE+ 131, DOVE+59 , DOVE+63 ) 
LINE ( LDOVE+1 32, DOVE+60, DOVE+64) 
LINE ( LDOVE+1 33. DOVE+57, DOVE+6 1 ) 
LINE ( LDOVE+1 34. DOVE+58. DOVE+62) 
LINE ( LDOVE+1 35, DOVE+27, DOVE+31) 
LINE ( LDOVE+1 36, DOVE+28, DOVE+32) 


<* 

( — * "** 

C 

(* - DOVETAIL SURFACE DEFINITIONS - 

(* DEFINE ESMOSS SURFACES 

(’ 

(•••••” * 

<• 


SDOVE=0 

LDOVE=0 

D0VE=0 

C 

RULEDSRF ( SDOVE+ 1 , LDOVE+ 1 , LDOVE+9) 
RULEDSRF < SDOVE+2 , LDOVE+ 1 1 , LDOVE+ 1 9 ) 
RULEDSRF ( SDOVE+3 . LDOVE+9 . LDOVE+ 1 9 ) 
RULEDSRF ( SDOVE+4 . LDOVE+ 1 , LDOVE+ 1 1 ) 
RULEDSRF ( SDOVE+5 , LDOVE+3 . LDOVE+ 1 3 ) 
RULEDSRF ( SDOVE+6 , LDOVE+6 , LDOVE+ 1 6 ) 
C 

( • SURFACES FOR REGION 2 

( * 

RULEDSRF ( SDOVE+ 1 7 , LDOVE+ 1 9 , LDOVE+29 ) 
RULEDSRF ( SDOVE+ 1 8 , LDOVE+ 1 1 , LDOVE+2 1 ) 
RULEDSRF ( SDOVE+ 1 9 , LDOVE+2 1 , LDOVE+29 ) 
RULEDSRF ( SDOVE+20 , LDOVE+ 1 3 , LDOVE+23 ) 
RULEDSRF ( SDOVE+2 1 , LDOVE+ 1 6 , LDOVE+26 ) 

(* 

(* SURFACES FOR REGION 3 
(* 

RULEDSRF ( SDOVE+27 , LDOVE+3 1 , LDOVE+39 ) 
RULEDSRF ( SDOVE+2 8 , LDOVE+29 , LDOVE+ 3 9 ) 
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RULEDSRF ( SDOVE+29 . LDOVE+2 1 . LDOVE+3 1 ) 
RULEDSRF ( SDOVE+30 . LDOVE-* 23 LDOVE+3 3 ) 
Rl'LEDSRF ( SDOVE+3 1 . LDOVE+ 26 . LDOVE+30 > 

* ' 

( • SURFACES FOR REGION 4 
( ' 

RULEDSRF < SDOVE+42 . LDOVE+4 1 , LDOVE+49 ) 
RULEDSRF ( SDOVE+43 . LDOVE+39 . LDOVE+49 ) 
RULEDSRF ( SDOVE+44 . LDOVE+3 1 , LDOVE+4 1 ) 
RULEDSRF ( SDOVE+45 , LDOVE+33 , LDOVE+43 ) 
RULEDSRF ( SDOVE+46 . LDOVE+3 6 . LDOVE+46 ) 

(’ 

( * SURFACES FOR REGION 5 
(* 

RULEDSRF < SDOVE+52 , LDOVE+5 1 . LDOVE+59 ) 
RULEDSRF ( SDOVE+53 . LDOVE+49 . LDOVE+59 ) 
RULEDSRF ( SDOVE+54 . LDOVE+4 1 , LDOVE+5 1 ) 
RULEDSRF ( SDOVE+55 . LDOVE+43 , LDOVE+5 3 ) 
RULEDSRF ( SDOVE+56 , LDOVE+46 . LDOVE+56 ) 

(’ 

( * SURFACES FOR REGION 6 
(’ 

RULEDSRF ( SDOVE+66 , LDOVE+6 1 , LDOVE+69 ) 
RULEDSRF ( SDOVE+67 , LDOVE+59 , LDOVE+69 ) 
RULEDSRF ( SDOVE+68 . LDOVE+5 1 , LDOVE+6 1 ) 
RULEDSRF ( SDOVE+69 , LDOVE+5 3 , LDOVE+63 ) 
RULEDSRF ( SDOVE+70 , LDOVE+56 , LDOVE+6 6 ) 

( ' 

(* SURFACES FOR REGION 7 
<* 

RULEDSRF < SDOVE+76 , LDOVE+7 1 , LDOVE+79 ) 
RULEDSRF ( SDOVE+77 , LDOVE+69 , LDOVE+79 ) 
RULEDSRF ( SDOVE+78 , LDOVE+6 1 , LDOVE+7 1 ) 
RULEDSRF ( SDOVE+79 , LDOVE+63 , LDOVE+73 ) 
RULEDSRF ( SDOVE+80 , LDOVE+66 , LDOVE+76 ) 

(’ SURFACES FOR REGION 8 

RULEDSRF ( SDOVE+7 , LDOVE+9 . LDOVE+ 1 0 ) 
RULEDSRF ( SDOVE+8 , LDOVE+ 1 9 , LDOVE+20 ) 
RULEDSRF (SDOVE+9. LDOVE+IO . LDOVE+20) 
RULEDSRF ( SDOVE+ 1 0 . LDOVE+4 . LDOVE+ 1 4 ) 
RULEDSRF ( SDOVE+ 1 1 . LDOVE+7 . LDOVE+ 1 7 ) 

0 

( » SURFACES FOR REGION 9 
(* 

RULEDSRF ( SDOVE+37 . LDOVE+29 . LDOVE+30 ) 
RULEDSRF ( SDOVE+38 , LDOVE+39 , LDOVE+40 ) 
RULEDSRF ( SDOVE+39 , LDOVE+29 , LDOVE+39 ) 
RULEDSRF ( SDOVE+40 . LDOVE+24 . LDOVE+34 ) 
RULEDSRF ( SDOVE+4 1 , LDOVE+27 , LDOVE+37 ) 

(• 

(• SURFACES FOR REGION 10 
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<* 

RULEDSRF < SDOVE+62 . LDOVE+49 LIM)VE+'>0 > 
RULEDSRF ( SDOVE+63 . LDOVE+59 LDOYE^HU t 
RULEDSRF ( SDOVE+64 . LDOVE+44 LI)OVE J -'>4 ) 
RULEDSRF ( SDOVE+65 . LDOVE+47 . LDOVE+57 > 

( ’ 

(♦ SURFACES FOR REGION 11 
(’ 

RULEDSRF ( SDOVE+86 , LDOVE+69 . LDOVE+70 ) 
RULEDSRF ( SDOVE+87 , LDOVE+79 , LDOVE+80 ) 
RULEDSRF ( SDOVE+88 , LDOVE+64 , LDOVE+7 4 ) 
RULEDSRF ( SDOVE+89 , LDOVE+67 , LDOVE+77 ) 

<* 

{ * SURFACES FOR REGION 12 
( * 

RULEDSRF ( SDOVE+ 1 2 , LDOVE+2 , LDOVE+ 1 2 ) 
RULEDSRF ( SDOVE+ 1 3 , LDOVE+ 1 2 , LDOVE+20 ) 
RULEDSRF ( SDOVE+ 1 4 , LDOVE+2 , LDOVE+ 1 0 ) 
RULEDSRF ( SDOVE+ 1 5 , LDOVE+5 , LDOVE+15) 
RULEDSRF ( SDOVE+16 , LDOVE+8 , LDOVE+18 ) 

(* 

(• SURFACES FOR REGION 13 
(* 

RULEDSRF { SDOVE+22 . LDOVE+22 . LDOVE+30 ) 
RULEDSRF ( SDOVE+23 . LDOVE+ 1 2 . LDOVE+22 ) 
RULEDSRF ( SDOVE+24 . LDOVE+20 . LDOVE+30 ) 
RULEDSRF ( SDOVE+25 , LDOVE+ 1 5 , LDOVE+2 5 ) 
RULEDSRF ( SDOVE+26 , LDOVE+ 1 8 , LDOVE+28 ) 

(* 

(* SURFACES FOR REGION 14 
(’ 

RULEDSRF ( SDOVE+32 , LDOVE+32 . LDOVE+40 ) 
RULEDSRF ( SDOVE+33 , LDOVE+22 , LDOVE+32 ) 
RULEDSRF ( SDOVE+34 . LDOVE+30 , LDOVE+40 ) 
RULEDSRF ( SDOVE+35 . LDOVE+25 , LDOVE+35 ) 
RULEDSRF ( SDOVE+36 . LDOVE+28 , LDOVE+38 ) 

(’ 

(* SURFACES FOR REGION 15 
(' 

RULEDSRF ( SDOVE+47 . LDOVE+42 . LDOVE+50 ) 
RULEDSRF ( SDOVE+48 , LDOVE+32 LDOVE+42 ) 
RULEDSRF ( SDOVE+49 , LDOVE+40 . LDOVE+50 ) 
RULEDSRF ( SDOVE+50 , LDOVE+35 . LDOVE+45 ) 
RULEDSRF ( SDOVE+5 1 . LDOVE+38 . LDOVE+48 ) 

< % 

(* SURFACES FOR REGION 16 
<* 

RULEDSRF ( SDOVE+57 . LDOVE+52 , LDOVE+60 ) 
RULEDSRF ( SDOVE+58 , LDOVE+42 , LDOVE+52 ) 
RULEDSRF ( SDOVE+59 , LDOVE+50 , LDOVE+60 ) 
RULEDSRF ( SDOVE+60 , LDOVE+45 , LDOVE+55 ) 
RULEDSRF ( SDOVE+6 1 . LDOVE+48 , LDOVE+58 ) 

(’ 


241 



<’ SURFACES FOR REGION IT 
( ' 

RULEDSRF ( SDOVE+T 1 . LDOVE+62 . LDOVE+TO ) 

RULEDSRF < SDOVE+72 . LDOVE+52 . LDOVE+ 62 ) 

RULEDSRF ( SDOVE+73 . LDOVE+60 . LDOVE+TO > 

RULEDSRF ( SDOVE+74 . LDOVE+55 . LDOVE+65 ) 

RULEDSRF ( SDOVE+75 . LDOVE+58 . LDOVE+68 ) 

( * 

<* SURFACES FOR REGION 18 

C 

RULEDSRF ( SDOVE+8 1 . LDOVE+72 , LDOVE+80 ) 

RULEDSRF ( SDOVE+82 , LDOVE+62 . LDOVE+72 ) 

RULEDSRF ( SDOVE+83 , LDOVE+70 . LDOVE+80 ) 

RULEDSRF ( SDOVE+84 . LDOVE+65 , LDOVE+75 ) 

RULEDSRF < SDOVE+85 , LDOVE+68 , LDOVE+78 ) 

(* 

C 

(* - BROACH REGION DEFINITIONS - 

<* DEFINE ESMOSS REGIONS 

< * 

( * ***** 

(’ 

SDOVE=0 

(* 

(* DEFINE REGION 1 

(* 

REG3D ( 1 , SDOVE+1 , SDOVE+2 , SDOVE+3 . SDOVE+4 . SDOVE+5 . SDOVE+6 , 6c 

LDOVE+ 1 , LDOVE+9 , LDOVE+ 1 1 , LDOVE+ 1 9 . LDOVE+3 , LDOVE+6 , 6c 

LDOVE+ 1 3 , LDOVE+ 1 6 . LDOVE+8 1 , LDOVE+82 . LDOVE+83 . LDOVE+84 . 6c 

DOVE+ 1 . DOVE+2 , DOVE+5 , DOVE+6 , DOVE+35 , DOVE+36 , DOVE+39 , DOVE+40 ) 

(* 

(’ DEFINE REGION 2 

(* 

REG3D (2, SDOVE+2, SDOVE+ 1 7 . SDOVE+ 1 8 , SDOVE+ 1 9 , SDOVE+20 , SDOVE+2 1 , 6c 
LDOVE+1 1 , LDOVE+ 1 9 . LDOVE+2 1 , LDOVE+29 . LDOVE+ 1 3 . LDOVE+ 1 6 . 6c 
LDOVE+23 . LDOVE+26 . LDOVE+89 . LDOVE+90 . LDOVE+9 1 . LDOVE+92 . 6c 
DOVE+5, DOVE+6, DOVE+9 . DOVE+1 0 . DOVE+39 . DOVE+40 , DOVE+43 . 6c 
DOVE+44 ) 

(* 

(* DEFINE REGION 3 

(* 

REG3D ( 3 , SDOVE+ 1 9 . SDOVE+27 . SDOVE+28 . SDOVE+29 . SDOVE+30 , SDOVE+3 1 . 6c 
LDOVE+2 1 . LDOVE+29 . LDOVE+3 1 . LDOVE+ 39 . LDOVE+23 . LDOVE+26 , 6c 
LDOVE+33 . LDOVE+36 . LDOVE+97 , LDOVE+98 , LDOVE+99 , LDOVE+ 100, &c 
DOVE+9, DOVE+ 10. DOVE+1 3. DOVE+1 4, DOVE+43, DOVE+44. DOVE +4 7 , 6c 
DOVE+48 ) 

C 

(* DEFINE REGION 4 

<* 

REG3D ( 4 , SDOVE+27 , SDOVE+42 , SDOVE+43 , SDOVE+44 . SDOVE+45 , SDOVE+46 , 6c 
LDOVE+3 1 , LDOVE+39 , LDOVE+4 1 . LDOVE+49 . LDOVE+33 , LDOVE+36 , & 
LDOVE+43 , LDOVE+4 6 , LDOVE+ 1 05 , LDOVE+ 1 06 . LDOVE+ 1 07 , LDOVE+ 108, 6c 
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DOVE- 1 3 . DOVE+ 1 4 DOVE- 1 T . DOVE+ 1 6 DOYE+47 . DOVE+48 , DOVE+5 1 . Sc 
DOVE+52 ) 

< • 

(• DEFINE REGION 3 

( • 

REG 3D ( 5 . SDOVE+42 . SDOVE+52 . SDOVE+53 . SDOY'E+54 SDOVE+55 . SDOVE+5G . « 
LDOVE+4 1 . LDOVE+49 . LDOVE+5 1 . LDOVE+59 . LDOVE+43 . LDOVE+46 . Sc 
LDOVE+53 . LDOVE+56 . LDOVE+ 113. LDOVE+ 114. LDOVE+ 115. LDOVE+ 116, Sc 
DOVE+ 1 7 . DOVE+ 1 8 . DOVE+2 1 . DOVE+22 . DOVE+5 1 . DOVE+52 . DOVE+55 , Sc 
DOVE+56) 

( * 

(• DEFINE REGION 6 

<• 

REG3D ( 6 . SDOVE+52 . SDOVE+66 , SDOVE+67 . SDOVE+68 . SDOVE+69 . SDOVE+70 , Sc 
LDOVE+5 1 , LDOVE+59 . LDOVE+6 1 , LDOVE+69 . LDOVE+53 . LDOVE+56 . Sc 
LDOVE+63 , LDOVE+66 , LDOVE+121 , LDOVE+122 . LDOVE+123 , LDOVE+124 , Sc 
DOVE+2 1 , DOVE+22 , DOVE+25 . DOVE+2 6 , DOVE+55 . DOVE+56 . DOVE+59 , Sc 
DOVE+60 ) 

( * 

(* DEFINE REGION 7 

<* 

REG 3D ( 7 , SDOVE+66 , SDOVE+76 , SDOVE+77 , SDOVE+78 , SDOVE+79 , SDOVE+80 , Sc 
LDOVE+6 1 . LDOVE+69 , LDOVE+7 1 , LDOVE+79 . LDOVE+63 , LDOVE+66 , Sc 
LDOVE+73 , LDOVE+76 . LDOVE+129 , LD0VE+130 . LDOVE+131 , LDOVE+132 . & 
DOVE+25 . DOVE+2 6 . DOVE+29 . DOVE+30 , DOVE+59 . DOVE+60 .DOVE+6 3 . Sc 
DOVE+64 ) 

C 

( * DEFINE REGION 8 

<• 

REG3D ( 8 , SDOVE+3 , SDOVE+7 . SDOVE+8 . SDOVE+9 . SDOVE+ 1 0 . SDOVE+ 1 1 . Sc 
LDOVE+9 , LDOVE+lO.LDOVE+1 9. LDOVE+20. LDOVE+4. LDOVE+7. Sc 
LDOVE+14 . LDOVE+17 . LDOVE+83 . LDOVE+84 . LDOVE+85 . LDOVE+86 , Sc 
DOVE+33 . DOVE+34 . DOVE+35 , DOVE+36 . DOVE+37 . DOVE+38 . DOVE+39 , Sc 
DOVE+40 ) 

<* 

(* DEFINE REGION 9 

C 

REG3D ( 9 , SDOVE+34 , SDOVE+37 SDOVE+38 . SDOVE+39 . SDOVE+40 , SDOVE+41 . Sc 
LDOVE+29 . LDOVE+30 . LDOVE+39 . LDOVE-40 . LDOV F- 24 LDOVE+27 . Sc 
LDOVE+34 . LDOVE+37 , LDOVE+99 . LDOVE- 1 00 LI«.-V1J4 101 , LDOVE+102 . Sc 
DOVE+41 , DOVE+42 . DOVE+43 . DOVE+44 . DOVE+4 5 . 1 >oVE+46 . DOVE+47 . Sc 
DOVE+48 ) 

<* 

<* DEFINE REGION 10 

REG3D( 10 , SDOVE+59 , SDOVE+53 . SDOVE+62 . SDOVE+63 , SDOVE+64 . SDOVE+65 . Sc 
LDOVE+49 . LDOVE+5 0 . LDOVE+59 . LDOVE+60 . LDOVE+44 . LDOVE+4 7 , Sc 
LDOVE+54 . LDOVE+.57 , LDOVE+ 115, LDOVE+ 116. LDOVE+ 117, LDOVE+ 118, Sc 
DOVE+49 , DOVE+50 , DOVE+5 1 , DOVE+52 , DOVE+53 . DOVE+54 , DOVE+55 . Sc 
DOVE+56) 

(* 

C DEFINE REGION 11 

(• 
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REG 3D ( 1 1 . SDOVE *-83 . SDOVE+86 SDOVE-rBT SDOVE-88 . SDOVE+89 . SDOVE+77 . k 
LDOVE+69 . LDOVE+70 . LDOVE»7f< . LDOVE+HO . LDOVE+64 . LDOVE+67 . k 
LDOVE+74 LDOVE+77 . LDOVL- I '■ 1 U*oVE+ 1 32 . LDOVE+133 LDOVE-<- 1 34 & 

DOVE-r37 . DOVE+58 . DOVE- 5'< . DoVH+OU IjoVE+Oj . DOVE+62 . DOVE+63 k 
DOVE+64 ) 

< ’ 

(* DEFINE REGION 12 

< ’ 

REG3D( 12 . SDOVE+9 . SDOVE+12 . SDOVE+13 , SDOVE+ 14 . SDOVE+1 5 , SDOVE+16 , & 
LDOVE+2 , LDOVE+ 1 0 , LDOVE+ 1 2 , LDOVE+20 , LDOVE+5 , LDOVE+8, & 

LDOVE+ 1 5 . LDOVE+ 1 8 , LDOVE+85 , LDOVE+86 . LDOVE+87 . LDOVE+8 8 . k 
DOVE+3 . DOVE+4, DOVE+7 . DOVE+8 , DOVE+33 . DOVE+34 , DOVE+37 , k 
DOVE+38) 

(* 

(* DEFINE REGION 13 

( * ' 

REG3DI 13 . SDOVE+13 , SDOVE+22 , SDOVE+23 , SDOVE+24 . SDOVE+25 SDOVE+26 , k 
LDOVE+ 1 2 , LDOVE+20 , LDOVE+22 , LDOVE+30 , LDOVE+ 1 5 , LDOVE+ 1 8 . k 
LDOVE+25 . LDOVE+2 8 , LDOVE+93 . LDOVE+94 , LDOVE+95 . LDOVE+96 , & 
DOVE+7 , DOVE+8 . DOVE+ 1 1 , DOVE+ 1 2 . DOVE+37 . DOVE+38 . DOVE+4 1 . & 
DOVE+42 ) 

C 

(* DEFINE REGION 14 

( * 

REG3D< 1 4 , SDOVE+22 , SDOVE+32 , SDOVE+33 , SDOVE+34 . SDOVE+35 , SDOVE+36 & 
LDOVE+22 . LDOVE+30 , LDOVE+32 . LDOVE+40 . LDOVE+25 , LDOVE+28 . & 
LDOVE+35 . LDOVE+38 , LDOVE+ 101, LDOVE+ 1 02 . LDOVE+ 1 03 . LDOVE+ 104, k 
DOVE+ 1 1 , DOVE+ 1 2 , DOVE+ 1 5 , DOVE+ 1 6 , DOVE+4 1 . DOVE+42 . DOVE+45 . k 
DOVE+4 6 ) 

C 

(* DEFINE REGION 15 

(• 

REG3D< 1 5 . SDOVE+32 , SDOVE +47 , SDOVE+48 . SDOVE +49 , SDOVE+50 , SDOVE+5 1 , k 
LDOVE+32 , LDOVE+40 , LDOVE+42 . LDOVE+50 . LDOVE+35 . LDOVE+38 , k 
LDOVE+45 , LDOVE+48 , LDOVE+1 09“. LDOVE+1 10 . LDOVE+1 1 1 , LDOVE+1 12 , k 
DOVE+ 1 5 , DOVE+ 1 6 . DOVE+ 1 9 . DOVE+20 , DOVE+45 . DOVE+46 , DOVE+49 , k 
DOVE+50 ) 

(* 

(* DEFINE REGION 16 

<• 

REG3D( 16 , SDOVE+47 , SDOVE+57 . SDOVE+58 SHOVE' . S1M)VK-(*U SDOVE+61 , k 
LDOVE+42 . LDOVE+50 . LDOVE+52 . LDOVE + 60 . LDOVE-t 45 LDOVE+48 k 
LDOVE+55 . LDOVE+58 , LDOVE+ 117, LDOVE+ 118. LIKIVE- 1 119. LDOVE+ 120. k 
DOVE+ 19. DOVE+20. DOVE+23 . DOVE+ 24 .DOVE+49. DOVE+50. DOVE+53 . k 
DOVE+54 ) 

C 

(• DEFINE REGION 17 

(* 

REG3D< 1 7 , SDOVE+57 , SDOVE+7 1 , SDOVE+72 . SDOVE+73 . SDOVE+74 , SDOVE+75 , k 
LDOVE+52 , LDOVE+60 . LDOVE+62 . LDOVE+70 , LDOVE+55 . LDOVE+58 , k 
LDOVE+65 , LDOVE+68 , LDOVE+ 125. LDOVE+1 26 . LDOVE+ 1 27 , LDOVE+ 128, k 
DOVE+23 , DOVE+24 , DOVE+27 , DOVE+28 , DOVE+53 . DOVE+54 , DOVE+57 , k 
DOVE+58 ) 
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( • 
1 • 

< • 


DEFINE REGION 18 


REG 31)1 1 8 . SDOVE+7 1 . SDOVE+8 1 . SDOVE+82 . SDoVE+83 .vIK>vE+84 . SPOVE+85 . & 
LDOVE+62 LDOVE+70 . LDOVE+72 . LDOVE+BO . L1XJVE+65 . LDOVE+68 . & 
LDOVE+75 . LDOVE+78 , LDOVE+ 1 33 . LDOVE+ 1 34 . LDOVE+ 135 . LDOVE+ 136, Sc 
DOVE +27 DOVE+28 , DOVE+3 1 . DOVE+32 . DOVE+57 . DOVE+58 . DOVE+6 1 . Sc 
DOVE+62 ) 

<’ 

<* 
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1 • - •• '• •• - 
< * •• ' 


' '»<■ '»«' ><' Nt' 


X><' >< , »*' 


< 1 

DEFINE THE FIRST BLADE CROSS - SECT 1 ON 




'><' >*.' ’>< ’>< X ’>< >c' ><_ >< 

X »V /s'X .> < ^ < V >*' 


VI 1**1 

•V ,>* I *v 


><; ><; >< *><,>< >< >«| 
. »< .>* y* . X V< 


<* 

DELETEPT (801) 

DELETEPT (802) 

DELETEPT (803) 

DELETEPT (8041 
DELETEPT (805) 

DELETEPT (806) 

DELETEPT (807) 

DELETEPT (808) 

C 

DELETECV (900) 

DELETECV (901) 

DELETECV (902) 

DELETECV (903) 

C 

POINT(801 , XLED1 . YLED1 , ZVAL1 ) 
PO!NT( 802 , XTED1 , YTED 1 ,ZVAL1 ) 
POINT(803.CXLED.CYLED.ZVAL1 ) 

PO I NT ( 804 . CXTED . CYTED . ZVAL 1 ) 
POINT( 805 , XINNER , YCENTER . ZVAL1 ) 
POINT(806 , XOUTER , YCENTER . ZVAL1 ) 
POINT( 807 . CX I NER , CYCNTR . ZVAL1 ) 
P01NT( 808 , CXOTER . CYCNTR , ZVAL1 ) 

C 

ARC <900. 806. 801 .802) 

ARC ( 90 1 .805.801 .802) 

ARC( 902 . 808 . 803 . 804 ) 

ARC (903, 807. 803. 804) 

<* 

BLAD=0 


(’ 

PARMCRV ( BLAD+ 161.901. 05 > 

PARMCRV (BLAD+1 62 .900 . 05 i 
PARMCRV (BLAD+163.903. 05> 

PARMCRV ( BLAD+1 64 . 902 . 05 > 

PARMCRV ( BLAD+ 165.901 . ( POS 1 + 05 ) ) 
PARMCRV ( BLAD+ 166.903, POS 1 ) 

PARMCRV < BLAD+1 67 , 902 , POS 1 ) 

PARMCRV ( BLAD+1 68 , 900 , ( POS 1+ 05 ) ) 
PARMCRV (BLAD+169,901 , (WPOS1+. 05) ) 

(* 

PARMCRV ( BLAD+1 70, 903, WPOS1) 
PARMCRV (BLAD+171 .902.WPOS1) 
PARMCRV (BLAD+1 72 , 900 , (WPOS1+ 05 ) ) 
PARMCRV ( BLAD+ 173,901 , ( POS2+ 05 ) ) 
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PARMCRY < BLAD+ 1 74 903 . POS2 ) 

PARMCRY < BLAD+ 173. 902 , POS2 ) 

PARMCRY ( BLAD+ 1 70 . 900 . < POS2-r 05 > > 

PARMCRY ( BLAD+ 177.901. (WPOS2+ 05 » t 
PARMCRY ( BLAD+178 . 903 .WPOS2 ) 

PARMCRY' (BLAD+179 .902 .WPOS2) 

( • 

PARMCRV (BLAD+180.900. (WPOS2+.05) ) 

PARMCRV ( BLAD+ 181 ,901 . POS3 ) 

PARMCRV (BLAD+182 . 903 , POS3 ) 

PARMCRV ( BLAD+ 183. 902 , POS3 ) 

PARMCRV ( BLAD+184 , 900 ,POS3 ) 

PARMCRV (BLAD+185 . 901 ,WPOS3 ) 

PARMCRV ( BLAD+ 1 86 . 903 , WPOS3 ) 

PARMCRV ( BLAD+ 187.902. WPOS3 ) 

PARMCRV ( BLAD+ 188.900. WPOS3 ) 

PARMCRV (BLAD+189.901 , (POS4-.05)) 

(* 

PARMCRV (BLAD+190 . 903 , POS4 ) 

PARMCRV ( BLAD+ 191. 902 , POS4 ) 

PARMCRV ( BLAD+ 192.900, ( POS4- 05 ) ) 

PARMCRV ( BLAD+ 193.901 , ( WPOS4— 05 ) ) 

PARMCRV ( BLAD+ 1 94 . 903 , WP0S4 ) 

PARMCRV ( BLAD+ 1 95 , 902 , WP0S4 ) 

PARMCRV (BLAD+196.900, (WPOS4- 05)) 

PARMCRV ( BLAD+ 197.901 , .90) 

PARMCRV ( BLAD+ 198.903.97) 

PARMCRV ( BLAD+ 1 99 . 902 . . 97 ) 

C 

PARMCRV ( BLAD+200 . 900 . . 90 ) 

PARMCRV ( BLAD+20 1 , 90 1 . . 97 ) 

PARMCRV (BLAD+202.900, .97) 

C 

(* CONSTRUCT TEMPORARY POINTS NEEDED TO DEFINE CURVES 

C 

PARMCRV (900.900. (POS 1/2) ) 

PARMCRV (901 .900. (POS1+WPOS1+ 1)2) 

PARMCRV ( 902 . 900 . ( WPOS 1 +POS2+ 1 > 2 ) 

PARMCRV < 903 . 900 . ( POS2+WPOS2-. 1 > 2 ) 

PARMCRV ( 904 . 900 . ( WPOS2+POS 3-* 05 ) 2 ) 

PARMCRV ( 905 . 900 . ( POS3 <-WPOS3 » ) 

PARMCRV ( 906 . 900 . (WPOS3+POS4 > 2 > 

PAIWCRV ( 907 . 900 . ( POS4+WPOS4- 1 ) / 2 ) 

PARMCRV (908 .900. (WPOS4+ 90)/2) 

PARMCRV ( 909 . 900 , 935 ) 

C 

PARMCRV (910.902. (POS1/2)) 

PARMCRV (911 .902. (POSl+WPOSl )/2 ) 

PARMCRV (912.902, (WPOSl+POS2)/2) 

PAIttCRV <913 .902 . (POS2+WPOS2) /2 ) 

PARMCRV (914 , 902 , (WPOS2+POS3)/2)‘ 

PARMCRV (915,902, (POS3+WPOS3)/2) 

PARMCRV (916,902, (WPOS3+POS4)/2) 
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PARMCRV < 9 1 7 . 902 . ( POS4+WPOS4 ) , 2 > 
PARMCRV (918 902 . ( WPOS4+ 97 ) 2 ) 

I ’ 

PARMCRV < 9 1 9 90 3 . ( POS 1 2 > > 

PARMCRV < 920 . 903 . < POS1+WPOS 1)2) 
PARMCRV <921 .903. (WPOS1+POS2) 2) 
PARMCRV < 922 . 903 . < POS2+WPOS2 ) 2 ) 
PARMCRV ( 923 . 903 . < WPOS2+POS3 > 2 ) 
PARMCRV ( 924 . 903 . ( POS3+WPOS3 )/2 ) 
PARMCRV < 925 . 903 . < WPOS3+POS4 )/2 ) 
PARMCRV (926.903. ( POS4+WPOS4 )/2 ) 
PARMCRV (927.903. (WPOS4+. 97) /2) 

<* 

PARMCRV ( 928 . 90 1 . ( POS 1 /2 ) ) 

PARMCRV (929.901 . (POS1+WPOS1+ l)/2) 
PARMCRV ( 930.901 . (WPOS1+POS2+ 1 )/2) 
PARMCRV (931 .901 . (POS2+WPOS2+. l)/2) 
PARMCRV ( 932 . 901 . (WPOS2+POS3+ . 05)/2) 
PARMCRV (933.901 . ( POS3+WPOS3 )/2) 
PATO4CRV (934.901 . (WPOS3+POS4)/2) 
PARMCRV (935.901 . (POS4+WPOS4-. l)/2) 
PARMCRV (936.901 . (WPOS4+. 90) /2) 
PARMCRV (937,901 , .935) 

<* 



LINE ( LBLD+365 . BLAD+ 161. BLAD+ 1 62 ) 

LINE ( LBLD+366 . PLAT+98 .BLAD+161) 

LINE ( LBLD+367 , PLAT+99 .BLAD+16?) 

LINE ( LBLD+368 . BLAD+ 161. BLAD+ 1 63 > 

LINE ( LBLD+369 . BLAD+ 1 G2 . BLAD+ 1 64 > 

LINE ( LBLD-t-370 . BLAD+ 1 63 . BLAD+ 1 64 ► 

LINE (LBLD+371 . PLAT+ 1 03 . BLAD+ 1 63 > 

LINE ( LBLD+372 . PLAT+ 1 04 , BLAD+ 1 64 ) 
ARCCF< LBLD+373 . BLAD+ 161, BLAD+ 1 65 . 928 ) 
LINE ( LBLD+374 . PLAT+102 .BLAD+ 165 ) 

LINE (LBLD+375.PLAT+105.BLAD+166) 

LINE ( LBLD+376 . BLAD+ 1 63 , BLAD+ 1 66 ) 

LINE ( LBLD+377 . BLAD+ 1 64 , BLAD+ 1 67 ) 

LINE ( LBLD+378 , PLAT+106 .BLAD+167 ) 

LINE ( LBLD+379 , PLAT+107 .BLAD+168) 

(’ 

AIJCCF( LBLD+380 .BLAD+162 .BLAIH168 , 900 > • 
LINE ( LBLD+38 1 , BLAD+ 165, BLAIH 169) 

LINE ( LBLD+382.BLAD+1 66 , BLAIH- 170) 
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LINE ( LBLD+ 383 BLAD+1 67 .BLAD+1 71 ) 

LINE < LBLD+384 BLAD+ 1 68 . BLAD+ 1 72 ) 

LINE i LBLD+385 F’LAT* 1 1U.BLAD+169 ) 

LINE < LBLD+386 f'LAT+1 1 1 . BLAD+1 70 ) 

LINE ( LBLD+387 . F'LAT-1 1 Z . BLAD+ 1 7 1 ) 

LINE < LBLD+388 . PLAT+ 113. BLAD+ 172 ) 

LINE (LBLD+389 PLAT- 1 lift. BLAD+ 1 73 ) 

( * 

LINE <LBLD+390. BLAD+1 65. BLAD+1 66) 

LINE (LBLD+391 BLAD+1 66. BLAD+1 67) 

LINE (LBLD+392. BLAD+1 67, BLAD+1 68) 

LINE (LBLD+393. BLAD+1 69. BLAD+1 70) 

LINE < LB LD+ 394. BLAD+1 70, BLAD+ 171) 

LINE (LBLD+395. BLAD+1 71 .BLAD+172) 
ARCCF ( LBLD+396 . BLAD+ 169. BLAD+ 173, 930 ) 
LINE (LBLD+397. BLAD+1 70, BLAD+1 74) 

LINE ( LBLD+398 , BLAD+ 171. BLAD+ 175) 
ARCCF( LBLD+399 . BLAD+172 .BLAD+1 76 , 902) 

(* 

LINE ( LBLD+400 . PLAT+ 1 1 7 . BLAD+ 174) 

LINE (LBLD+401 .BLAD+1 73. BLAD+1 74) 

LINE (LBLD+402. BLAD+1 74. BLAD+1 75) 

LINE (LBLD+403 .PLAT+l 18 .BLAD+175) 

LINE (LBLD+404. BLAD+175, BLAD+176) 

LINE ( LBLD+405 PLAT+l 19 . BLAD+176) 

LINE (LBLD+406. BLAD+1 73. BLAD+1 77) 

LINE (LBLD+407. BLAD+1 74. BLAD+1 78) 

LINE (LBLD+408. BLAD+1 75. BLAD+1 79) 

LINE (LBLD+409. BLAD+1 76. BLAD+1 80) 

LINE (LBLD+4 10. PLAT+l 22, BLAD+1 77) 

LINE ( LBLD+4 1 1 , BLAD+ 177, BLAD+ 178) 

LINE (LBLD+4 12. PLAT+l 23, BLAD+1 78) 

LINE ( LBLD+4 1 3 , BLAD+ 178. BLAD+ 179) 

LINE (LBLD+4 14. PLAT+l 24. BLAD+1 79) 

LINE (LBLD+4 15. BLAD+1 79. BLAD+1 80) 

LINE (LBLD+4 16, PLAT+l 25. BLAD+1 80) 
ARCCF ( LBLD+4 1 7 . BLAD+ 1 77 , BLAD+ 181,932) 
LINE (LBLD+4 18. BLAD+1 78. BLAD+1 82) 

LINE ( LBLD+4 1 9 . BLAD+ 1 79 . BLAD+ 1 83 ) 

<* 

ARCCF ( LBLD+420 . BLAD+ 1 80 , BLAD+ 1 84 . 904 ) 
LINE (LBLD+421 .PLAT+l 28. BLAD+1 81 ) 

LINE ( LBLD+4 22. BLAD+181 .BLAD+1 82) 

LINE (LBLD+423. PLAT+l 29. BLAD+1 82) 

LINE (LBLD+424. BLAD+1 82. BLAD+1 83) 

LINE (LBLD+425. PLAT+l 30. BLAD+1 83) 

LINE (LBLD+426. BLAD+1 83. BLAD+1 84) 

LINE (LBLD+427, PLAT+l 31 .BLAD+184) 

LINE ( LBLD+428 , BLAD+ 181, BLAD+ 185) 

LINE ( LBLD+429 . BLAD+1 82 , BLAD+1 86 ) 

(* 

LINE (LBLD+430, BLAD+1 83, BLAD+1 87) 

LINE (LBLD+431 .BLAD+1 84, BLAD+1 88) 
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LINE ( LBLD+432 . F'LAT + 1 3-1 .BLAD+185) 

LINE < LBLD+4 33 . BLAD+ 1 83 BLAD+ 1 86 t 
LINE < LBLD+4 34 . PLAT-t 1 33 BLAD+ 1 86 ( 

LINE (LBLD+435 . BLAlK 1 86 BLAD+ 1 87 > 

LINE ( LBLD+436 . F'LAT+ 1 36 BLAD+ 187 ) 

LINE ( LBLD+4 37 . BLAD+ 187 . BLAD+188 I 
LINE (LBLD+438 . PLAT+ 1 37 BLAD+ 1 88 ) 

ARCCF ( LBLD+4 39 , BLAD+ 1 85 . BLAD+ 189 934 ) 

LINE ( LBLD+440 . BLAD+ 1 86 , BLAD+ 190) 

LINE ( LBLD+44 1 . BLAD+ 187, BLAD+ 191) 

ARCCF ( LBLD+442 . BLAD+ 188. BLAD+ 192,906) 

LINE (LBLD+443 .PLAT+ 140 , BLAD+189) 

LINE ( LBLD+444 .BLAD+189 .BLAD+190) 

LINE (LBLD+445 .PLAT+141 , BLAD+190) 

LINE (LBLD+446 .BLAD+190 .BLAD+191 ) 

LINE ( LBLD+447 .PLAT+142 .BLAD+191 ) 

LINE (LBLD+448 .BLAD+191 .BLAD+192) 

LINE (LBLD+449 .PLAT+ 143 .BLAD+192) 

* 

LINE ( LBLD+450 , BLAD+ 1 89 , BLAD+193) 

LINE (LBLD+451 .BLAD+190. BLAD+194) 

LINE (LBLD+452 .BLAD+191 .BLAD+ 195) 

LINE (LBLD+453 .BLAD+192 .BLAD+ 196) 

LINE (LBLD+454 .PLAT+ 146 .BLAD+193) 

LINE (LBLD+455. BLAD+193, BLAD+194) 

LINE (LBLD+456 .PLAT+ 147 , BLAD+194) 

LINE (LBLD+457 , BLAD+194 .BLAD+195) 

LINE (LBLD+458.PLAT+148. BLAD+195) 

LINE (LBLD+459 .BLAD+195 .BLAD+ 196) 

f 

LINE ( LBLD+460 .PLAT+149 .BLAD+196) 

ARCCF < LBLD+46 1 . BLAD+ 1 93 , BLAD+ 1 97 . 936 ) 

LINE ( LBLD+462 .BLAD+194 .BLAD+ 198) 

LINE ( LBLD+463 , BLAD+ 195, BLAD+ 199) 

ARCCF ( LBLD+464 . BLAD+ 1 96 . BLAD+200 , 908 ) 

LINE ( LBLD+465 . PLAT+152 .BLAD+197 ) 

LINE (LBLD+466.BLAD+ 198, BLAD+197) 

LINE ( LBLD+467 . PLAT+153 .BLAD+198 ) 

LINE ( LBLD+468 . PLAT+ 1 54 . BLAD+ 1 99 ) 

LINE (LBLD+46 9. BLAD+ 199. BLAD+200) 

<’ 

LINE (LBLD+470.PLAT+ 155, BLAD+200) 

LINE (LBLD+471 .BLAD+197. BLAD+200) 

ARCCF (LBLD+472.BLAD+1 97, BLAD+201 .937) 

ARCCF ( LBLD+473 .BLAD+200 .BLAD+202 , 909 ) 

LINE ( LBLD+474 .PLAT+ 157. BLAD+201 ) 

LINE (LBLD+475.PLAT+ 158, BLAD+202) 

LINE (LBLD+476 .BLAD+201 .BLAD+202) 

C 

LINE ( LBLD+8 1 5 . BLAD+ 1 98 , BLAD+ 199) 

<• 

(• DELETE TEMPORARY POINTS THAT WERE CONSTRUCTED 
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< • 

DELETEPT <900) 

DELETEPT (901) 

DELETEPT < 902 ) 

DELETEPT (903) 

DELETEPT < 904 I 
DELETEPT (905) 

DELETEPT <906) 

DELETEPT (907) 

DELETEPT (908) 

DELETEPT (909) 

(* 

DELETEPT (910) 

DELETEPT (911) 

DELETEPT (912) 

DELETEPT (913) 

DELETEPT (914) 

DELETEPT (915) 

DELETEPT (916) 

DELETEPT (917) 

DELETEPT (918) 

DELETEPT (919) 

<* 

DELETEPT (920) 

DELETEPT (921) 

DELETEPT (922) 

DELETEPT (923) 

DELETEPT (924) 

DELETEPT (925) 

DELETEPT (926) 

DELETEPT (927) 

DELETEPT (928) 

DELETEPT (929) 

< * 

DELETEPT (930) 

DELETEPT (931) 

DELETEPT (932) 

DELETEPT (933) 

DELETEPT ( 934 ) 

DELETEPT (935) 

DELETEPT (936) 

DELETEPT (937) 

<’ 

( * **""•****•** 

( • 

(* - BLADE SURFACE DEFINITIONS - 

(• DEFINE ESMOSS SURFACES 

<* 

( * ****** *** 

(’ 

SBLD=0 

C 

(* 
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(♦ SURFACE:- FOK REGION 08 

t ' 

RULEDSRF t SBLD+65U . LBLIm- 3(i "> . LBLIh 37U i 
RULEDSRF 1SBLLH331 . PLAT+203 LBLD-810 > 
RULEDSRF ( SBLD+332 . PLAT+21 0 LBLD+3081 
RULEDSRF ( SBLD+333 . PLAT+2 1 8 LBLD+309 > 
RULEDSRF ( SBLD+334 . PLAT+203 LBLD+365 ) 
RULEDSRF (SBLD+335 .PLAT+810 . LBLD+370 ) 

< * 

<* SURFACES FOR REGION 69 

( * 

RULEDSRF (SBLD+336 .PLAT+212 . LBLD+373) 
RULEDSRF ( SBLD+337 . PLAT+800 . LBLD+390 ) 
RULEDSRF ( SBLD+338 , PLAT+2 1 4 , LBLD+376 ) 
RULEDSRF ( SBLD+339 . LBLD+373 , LBLD+376 ) 

<* 

(* SURFACES FOR REGION 70 
( * 

RULEDSRF ( SBLD+340 . PLAT+236 , LBLD+38 1 ) 
RULEDSRF ( SBLD+34 1 . PLAT+80 1 , LBLD+393 ) 
RULEDSRF ( SBLD+342 , PLAT+237 , LBLD+382 ) 
RULEDSRF ( SBLD+343 , LBLD+38 1 . LBLD+382 ) 

<* 

<* SURFACES FOR REGION 71 
< * 

RULEDSRF ( SBLD+344 , PLAT+242 , LBLD+396 ) 
RULEDSRF (SBLD+345 .PLAT+250 , LBLD+401 ) 
RULEDSRF ( SBLD+346 , PLAT+243 , LBLD+397 ) 
RULEDSRF ( SBLD+347 , LBLD+396 , LBLD+397 ) 

< * 

I * SURFACES FOR REGION 72 
< * 

RULEDSRF ( SBLD+348 . PLAT+259 . LBLD+406 ) 
RULEDSRF ( SBLD+34 9 . PLAT+267 , LBLD+4 1 1 ) 
RULEDSRF ( SBLD+350 , PLAT+260 , LBLD+407 ) 
RULEDSRF ( SBLD+35 1 . LBLD+406 . LBLD+407 ) 

( * 

<• SURFACES FOR REGION 73 
< * 

RULEDSRF ( SBLD+352 . PLAT+276 , LBLD+4 17) 
RULEDSRF ( SBLD+33 3 . PLAT+284 . LBLD+422 > 
RULEDSRF ( SBLD+354 . PLAT+277 , LBLD+4 18 ) 
RULEDSRF { SBLD+355 , LBLD+4 1 7 , LBLD+4 1 8 ) 

( ’ 

(* SURFACES FOR REGION 74 
<* 

RULEDSRF ( SBLD+356 . PLAT+293 . LBLD+428 ) 
RULEDSRF ( SBLD+357 . PLA7+30 1 . LBLD+433 ) 
RULEDSRF ( SBLD+358 , PLAT+294 . LBLD+429 ) 
RULEDSRF ( SBLD+359 , LBLD+428 . LBLD+429 ) 

C 

<* SURFACES FOR REGION 75 
< * 
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RULEDSRF ( SBLD+360 . PLAT+310 . LBLIK439 ) 
RULEDSRF (SBLD+361 . PLAT+31 8 . LBLD+444 > 
RULEDSRF ( SBLI>-r3G2.PLAT-r31 1 . LBLD-440) 
RULEDSRF ( SBLD+ 303 . LBLD+439 . LBLD+44 0 > 

( • 

< ’ SURFACE? FOR REGION 76 
( * 

RULEDSRF ( SBLD+364 . PLAT+806 , LBLD+450 ) 
RULEDSRF ( SBLD+365 . PLAT+329 , LBLD+455 ) 
RULEDSRF ( SBLD+366 , PLAT+807 . LBLD+45 1 ) 
RULEDSRF ( SBLD+367 . LBLD+450 , LBLD+45 1 ) 

C 

(* SURFACES FOR REGION 77 
<’ 

RULEDSRF ( SBLD+368 . PLAT+338 , LBLD+46 1 ) 
RULEDSRF ( SBLD+369 . PLAT+345 . LBLD+466 ) 
RULEDSRF ( SBLD+370 . PLAT+339 . LBLD+462 ) 
RULEDSRF ( SBLD+37 1 . LBLD+46 1 . LBLD+462 ) 

(* 

<* SURFACES FOR REGION 78 
<* 

RULEDSRF ( SBLD+372 . PUT+8 1 1 . LBLD+391 ) 
RULEDSRF < SBLD+373 . PUT+230 . LBLD+394) 
RULEDSRF ( SBLD+374 . PLAT+238 , LBLD+383 ) 
RULEDSRF ( SBLD+375 . LBLD+382 , LBLD+383 ) 

<* 

(* SURFACES FOR REGION 79 
(’ 

RULEDSRF ( SBLD+376 . PUT+269 . LBLD+413) 
RULEDSRF ( SBLD+377 . PLAT+26 1 . LBLD+408 ) 
RULEDSRF ( SBLD+378 . PUT+252 , LBLD+402 ) 
RULEDSRF ( SBLD+379 . LBLD+407 , LBLD+408 ) 

( * 

(* SURFACES FOR REGION 80 
(* 

RULEDSRF ( SBLD+380 . PUT+303 , LBLD+435 ) 
RULEDSRF ( SBLD+381 PLAT-^295 . LBLD+430) 
RULEDSRF ( SBLD+382 . PLAT+28G . LBLD+424) 
RULEDSRF < SBLD+383 LBLD+439 . LBLD+430) 

( ’ 

SLfRFACES FOR REGION 81 

( ♦ 

RULEDSRF ( SBLD+384 . PLAT+33 1 .LBLD+457) 
RULEDSRF ( SBLD+385 . PLAT+808 LBLD+452 ) 
RULEDSRF ( SBLD+386 , PUT+320 , LBLD+446 ) 
RULEDSRF ( SBLD+387 . LBLD+45 1 , LBLD+452 ) 

< * 

<* SURFACES FOR REGION 82 
(* 

RULEDSRF ( 5BLD+388 , PLAT+2 1 9 , LBLD+37? ) 
RULEDSRF ( SBLD+389 , PLAT+802 , LBLD+392 ) 
RULEDSRF ( SBLD+390 , PLAT+22 1 , LBLD+380 ) 
RULEDSRF (SBLD+391 , LBLD+377 , LBLD+380) 
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< • SURFACE.' FOR REGION 83 

< • 

RUl.ED.-r.RF ( SBLD+ 30:.' . F’LAl 4 803 . LB Lin 390 ) 
RULEDSRF ( SBLD+393 . PLAT+239 LBLD+384 > 
RULED5RF ( SBLD+394 . PLAT+383 . LBLD+384 ) 

< ’ 

{ * SURFACES FOR REG 1 ON 84 

r 

RULEDSRF ( SBLD+395 . PLAT4-244 . LBLD+398 ) 
RULEDSRF ( SBLD4-396 , PLAT+254 . LBLD+404 ) 
RULEDSRF ( SBLD+397 . PLAT+245 , LBLD+399 ) 
RULEDSRF < SBLD+398 . LBLD4-398 . LBLD4-399 ) 

(* 

(* SURFACES FOR REGION 85 
(* 

RULEDSRF ( SBLD+399 . PLAT+27 1 . LBLD+4 1 5 ) 
RULEDSRF < SBLD4-400 . PLAT+262 , LBLD+409 ) 
RULEDSRF ( SBLD+40 1 , PLAT+408 . LBLD+409 ) 

C 

(* SURFACES FOR REGION 86 
(* 

RULEDSRF ( SBLD+402 . PLAT+278 , LBLD+4 19 ) 
RULEDSRF ( SBLD+403 . PLAT+288 . LBLD+426 ) 
RULEDSRF ( SBLD4-404 . PLAT+279 . LBLD4-420 ) 
RULEDSRF ( SBLD+405 , LBLD4-4 1 9 . LBLD+420 ) 

(* 

(* SURFACES FOR REGION 87 

<* 

RULEDSRF ( SBLD+406 . PLAT+305 . LBLD4-437 ) 
RULEDSRF ( SBLD+407 . PLAT+296 . LBLD4-43 1 ) 
RULEDSRF ( SBLD+408 . LBLD4-430 . LBLD4-43 1 ) 

<* 

(* SURFACES FOR REGION 86 

C 

RULEDSRF ( SBLD+409 . PLAT+3 1 2 , LBLD+44 1 ) 
RULEDSRF ( SBLlH-4 1 0 . PLAT+322 . LBLDa-448 ) 
RULEDSRF ( SBLD+4 1 I . PLAT+3 1 3 . LBLD+442 ) 
RULEDSRF ( SBLD+4 1 2 . LBLD+44 1 . LBLD+442) 

( * 

( * SURFACES FOR REG 1 0N 89 
<* 

RULEDSRF ( SBLD+4 i 3 . PLAT+333 . LBLD+4 59 ) 
RULEDSRF ( SBLD+4 1 4 . PLAT+809 . LBLD+453 ) 
RULEDSRF ( SBLD+4 15 . LBLD+452 . LBLD+453) 

<* 

<* SURFACES FOR REGION 90 
(* 

RULEDSRF ( SBLD+4 1 6 . PLAT+340 . LBLD+463 ) 
RULEDSRF ( SBLD+4 1 7 , PLAT+349 . LBLD+469 ) 
RULEDSRF ( SBLD+4 1 8 , PLAT+34 1 . LBLD+464 ) 
RULEDSRF ( SBLD+4 1 9 , LBLD+463 , LBLD+464 ) 

C 
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C ?I ’KFAf'E.S FOR REGION 9) 

( • 

RULED.-RF t BLIh -1 20 . PLAT+ 346 . LBLD-*-8 I 5 > 

RULEDSRF < 2BLD-431 .PLAT* 35 J LBLD+4". 1 > 

RULEDSRF \ SBLD+422 . LBLD+466 . LBLD+4 09 > 

( ' 

(* SURFACES FOR REGION 92 
( * 

RULEDSRF ( SBLD+423 . PLAT+354 . LBLD+472 ) 

RULEDSRF ( SBLD+424 . PLAT+356 . LBLD+473 > 

RULEDSRF ( SBLD+425 . PLAT+472 . LBLD+473 ) 

RULEDSRF ( SBLD+426 , LBLD+359 . LBLD+4 76 ) 

<* 

* ""**""* * 

C 

(* - BLADE REGION DEFINITIONS - 

(• DEFINE ESMOSS REGIONS 

(* 

( * * * 

C 

(• DEFINE REGION 68 

(* 

REG3D ( 68 , SBLD+650 . SBLD+33 1 , SBLD+332 , SBLD+333 , SBLD+334 , SBLD+335 , k 
PLAT+203 PLAT+2 1 5 . PLAT+8 1 0 . PLAT+2 1 8 . LBLD+365 . LBLD+368 , k 
LBLD+369 . LBLD+370 , LBLD+366 . LBLD+367 . LBLD+371 . LBLD+372 . & 
PLAT+98 , PLAT+99 . PLAT+103 , PLAT+ 1 04 . BLAD+ 1 6 1 , BLAD+ 162 , k 
BLAD+ I 63 , BLAD+ 1 64 ) 

( * 

<• DEFINE REGION 69 

< * 

REG3D { 69 . SBLD+332 , SBLD+336 . SBLD+337 , SBLD+338 . SBLD+339 . PLAT+304 . k 
PLAT+2 1 5 . PLAT+2 1 2 . PLAT+800 , PLAT+2 1 4 . LBLD+373 . LBLD+390 . k 
LBLD+376 , LBLD+368 , LBLD+366 , LBLD+374 , LBLD+375 . LBLD+37 1 . & 
PLAT+98 , PLAT+102. PLAT+103. PLAT+105, BLAD+161 .BLAD+163, k 
BLAD+165 .BLAD+166 ) 

(* 

( * DEFINE REGION 70 

<• 

REG 3D (70. SBLD+337 . SBLD+340 . SBl.I- 341 . SBLD+342 . SBLD+343 .PLAT+309 . k 
PLAT+800 . PLAT +236 PLAT - 1 1 PLAT+237 , LBLD+381 . LBLD+393 . k 

LBLD+382 LBLD+390 LBLD- < l LBLD+385 . LBLD+375 . LBLD+386 . k 
PLAT+102. PLAT+105. PLAT- I lo.PLAT+111 .BLAD+165 .BLAD+166 . k 
BLAD+169 BLAD+170) 

(* 

(* DEFINE REGION 71 

C 

REG3D (71, SBLD+34 1 . SBLD+344 , SBLD+345 . SBLD+346 , SBLD+347 . PLAT+3 14 , k 
PLAT+242 , PLAT+250 . PLAT+243 , PLAT+80 1 . LBLD+396 . LBLD+40 1 . k 
LBLD+397 . LBLD+393 , LBLD+385 , LBLD+400 . LBLD+389 . LBLD+386 . k 
PLAT+1 10 .PLAT+1 1 1 .PLAT+1 16. PLAT+1 17. BLAD+169. BLAD+170. k 
BLAD+173 .BLAD+174) 

C 

(* DEFINE REGION 72 
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i ’ 

REG 3D ( 72 SBLD+345 . SLtLD+348 . SBLD+349 . SBLD+350 . SBLD+351 .PLAT+3 19 <v 
PLAT+250 PLAT+2S9 PLAT+267 . PLAT+260 . LBLD+401 , LBLD+40G. <\ 
LBLD+4 1 1 . LRLD+407 . LBLD+389 LBLD+4 1 0 LBLD+4 12 . LBLD+400 & 
PLAT+ 110. PLAT+ 117. PLAT+ 1 22 . PLAT+ 1 23 BLAD+ 1 73 . BLAD+ 174. & 
BLAD+ 1 77 . BLAD+ 178) 


( ’ 
( ' 


DEFINE REGION 73 


REG3D (73 , SBLD+349 , SBLD+352 . SBLD+353 , SBLD+354 , SBLD+355 .PLAT+324 , 6c 
PLAT+267 .PLAT+276 .PLAT+277 , PLAT+284 , LBLD+4 1 1 , LBLD+4 17 , 6c 
LBLD+4 1 8 . LBLD+422 . LBLD+4 1 0 , LBLD+4 1 2 , LBLD+42 1 , LBLD+4 2 3 . & 
PLAT+ 1 22 , PLAT+ 1 23 , PLAT+ 128, PLAT+ 1 29 . BLAD+177 , BLAD+ 178, & 
BLAD+ 181. BLAD+ 1 82 ) 


C 

<* 

C 

REG3D 


DEFINE REGION 74 

( 74 . SBLD+353 , SBLD+356 , SBLD+357 . SBLD+358 . SBLD+359 . PLAT+329 . 6c 
PLAT+284 . PLAT+293 . PLAT+30 1 . PLAT+294 , LBLD+422 . LBLD+428 , 6c 
LBLD+433 , LBLD+4 2 9 . LBLD+42 1 . LBLD+432 , LBLD+423 , LBLD+4 3 4 , 6c 
PLAT+128 , PLAT+129 , PLAT+134 , PLAT+135 .BLAD+181 .BLAD+182 , & 
BLAD+ 185. BLAD+ 1 86 ) 


(’ 

(* DEFINE REGION 75 

( * 

REG3D ( 75. SBLD+357, SBLD+360. SBLD+36 1 , SBLD+362 .SBLD+363 .PLAT+ 150, 6c 
PLAT+30 1 . PLAT+3 1 0 , PLAT+3 1 8 , PLAT+3 1 1 , LBLD+439 , LBLD+444 , & 
LBLD+440 , LB LD+433 . LBLD+432 , LBLD+443 . LBLD+4 4 5 . LBLD+4 3 4 , & 
PLAT+ 1 34 . PLAT+ 1 35 , PLAT+ 1 40 . PLAT+ 141. BLAD+1 85 , BLAD+ 186. 6c 
BLAD+ 189. BLAD+ 190) 


(* 

(* DEFINE REGION 76 

( * 

REG3D ( 76 . SBLD+36 1 , SBLD+364 . SBLD+365 , SBLD+366 . SBLD+367 , PLAT+ 155, 6c 
PLAT+806 . PLAT+329 .PLAT+807 , PLAT+3 18 . LBLD+450 , LBLD+45 1 , 6c 
LBLD+444 . LBLD+455 , LBLD+443 , LBLD+454 . LBLD+445 , LBLD+456 , & 
PLAT+140 PLAT+141 , PLAT+ 146 , PLAT+1 47 .BLAD+1 89 , BLAD+1 90 , 6c 
BLAD+ 1 93 . BLAD+ 1 94 > 


( ’ 

(» DEFINE REGION 77 

< * 

REG3D < 77. SBLD+365, SBLD+368 . SBLD+369, SBLD+370. SBLD+37 1 , PLAT+1 60, 6c 
PLAT+329 . PLAT+338 , PLAT+345 . PLAT+339 , LBLD+46 1 , LBLD+466 , 6c 
LBLD+4 6 2 . LBLD+455 , LBLD+454 , LBLD+465 . LBLD+467 . LBLD+456 . 6c 
PLAT+146 .PLAT+147 .PLAT+152 , PLAT+153 .BLAD+193 .BLAD+194 , 6c 
BLAD+ 1 97 , BLAD+ 198) 

( * 

(* DEFINE REGION 78 

( * 

REG3D ( 78. SBLD+342 , SBLD+372 , SBLD+373 . SBLD+374 . SBLD+375 , PLAT+1 75, 6c 
PLAT+237 , PLAT+230 , PLAT+238 . PLAT+8 1 1 , LBLD+382 , LBLD+394 , & 
LBLD+383 , LBLD+39 1 , LBLD+375 . LBLD+386 , LBLD+387 , LBLD+378 , 6c 
PLAT+ 105. PLAT+1 06. PLAT+1 1 1 , PLAT+1 12. BLAD+1 66. BLAD+1 67 . 6c 
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< • 
< • 
< ’ 


BLAD+1 70 . BLAD+ 1 7 1 ) 


DEFINE REGION 70 


REG 3D ( 79 . SBLD+350 . 3BLD+376 . SBLD+377 . SBLIH378 . SBLIH379 . PLAT+ 180 & 

PLAT+260 . PLAT+2G9 . PLAT+261 . PLAT+252 . LBLD+407 . LBLD+4 13 , Sc 
LBLD+408 . LBLD+4 02 . LBLD+400 . LBLD+4 1 2 . LBLD+4 1 4 . LBLD+403 , & 
PLAT+1 17 . PLAT+ 118, PLAT+1 23 . PLAT+124 . BLAD+1 74 .BLAD+1 75 , Sc 
BLAD+ 1 78 . BLAD+ 1 79 ) 

( * 

(* DEFINE REGION 80 

<* 

REG3D ( 80, SBLD+358. SBLD+380, SBLD+38 1 , SBLD+382 . SBLD+383 . PLAT+1 85. Sc 
PLAT+286 . PLAT+294 . PLAT+295 . PLAT+303 . LBLD+429 . LBLD+424 , Sc 
LBLD+4 35 , LBLD+430 , LBLD+423 , LBLD+434 . LBLD+436 . LBLD+425 . Sc 
PLAT+ 129 , PLAT+1 30 , PLAT+ 135. PLAT+ 136, BLAD+ 1 82 . BLAD+ 183, Sc 
BLAD+1 86, BLAD+1 87) 


C 

(* DEFINE REGION 81 

<* 

REG3D (81 . SBLD+366 , SBLD+384 , SBLD+385 , SBLD+386 , SBLD+387 .PLAT+1 90 , Sc 
PLAT+807 , PLAT+33 1 , PLAT+808 .PLAT+320 , LBLD+4 51 , LBLD+457 , Sc 
LBLD+4 5 2 , LBLD+446 , LBLD+445 , LBLD+456 , LBLD+447 , LBLD+4 5 8 , Sc 
PLAT+141 .PLAT+1 42. PLAT+ 147 .PLAT+1 48 ,BLAD+ 190. BLAD+191 , Sc 
BLAIH 194. BLAIH 195) 

C 

<* DEFINE REGION 82 


<* 

REG3D (82 , SBLD+333 , SBLD+388 . SBLD+389 , SBLD+390 , SBLD+391 , PLAT+204 , & 
PLAT+2 1 9 . PLAT+802 . PLAT+22 1 . PLAT+2 1 8 . LBLD+369 . LBLD+377 . Sc 
LBLD+392 , LBLD+380 . LBLD+372 , LBLD+378 . LBLD+379 . LBLD+367 , Sc 
PLAT+99 . PLAT+1 04. PLAT+1 06. PLAT+1 07. BLAD+1 62, BLAD+1 64 . Sc 
BLAD+1 67 .BLAD+1 68) 

(* 

<* DEFINE REGION 83 

<* 

REG3D ( 83 . SBLD+389 . SBLD+374 , SBLD+392 , SBLD+393 , SBLD+394 , PLAT+208 , Sc 
PLAT+238 . PLAT+803 . PLAT+239 , PLAT+802 . LBLD+383 . LBLD+395 . Sc 
LBLD+384 LBLD-t 392 . LBLD+378 , LBLD+387 , LBLD+388 , LBLD+379 , Sc 
PLAT+1 06 PLAT+1 07, PLAT+1 12, PLAT+1 13. BLAD+1 67 .BLAD+1 68 . Sc 
BLAD+1 71 .BLAD+1 72 ) 


c 

(* DEFINE REGION 84 

<* 

REG3D ( 84 . SBLD+392 . SBLD+395 , SBLD+396 . SBLD+397 , SBLD+398 , PLAT+2 1 3 . Sc 
PLAT+244 , PLAT+254 . PLAT+245 , PLAT+803 . LBLD+398 . LBLD+404 . Sc 
LBLD+399 . LBLD+395 , LBLD+387 . LBLD+403 . LBLD+4 05 . LBLD+388 , Sc 
PLAT+1 12, PLAT+1 13. PLAT+1 18 .PLAT+1 19 . BLAD+171 .BLAD+172 . Sc 
BLAIH 175, BLAIH 176) 


<• 

(• DEFINE REGION 85 

(* 

REG3D (85. SBLD+396, SBLD+377. SBLD+399 , SBLD+400 . SBLD+401 .PLAT+2 1 8 . Sc 
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PLAT-i-26 1 . PLAT+27 1 . PLAH 262 PLAT-254 LBLD+408 . LBLD+4 1 5 . He 
LBLD+409 . LBLIh 404 . LBLD+4 03 . LBLD-4 1 4 l.BLD-»4 16 LBLD+405 . He 
PLAT+1 16 . PLAT+ 119 F’LAT+124 . PLAT* 1 35 BLAD+ 1 75 . BLAlM- 176 . & 
BLAD+ 1 T9 . BLAD+ 1 60 > 

( • 

<« DEFINE REGION 86 

< * 

REG 3D (86 , SBLD+399 , SBLD+402 . SBLD+403 . SBLD+4 04 . SBLD+405 . PLAT+223 , He 
PLAT+278 , PLAT+288 , PLAT+279 . PLAT+271 . LBLD+4 19 , LBLD+426 . He 
LBLD+420 , LBLD+4 15 , LBLD+4 14 . LBLD+425 . LBLD+4 27 , LBLD+4 16 , He 
PLAT+ 124, PLAT+1 25, PLAT+1 30. PLAT+ 131 . BLAD+179 . BLAD+180 . He 
BLAD+ 1 83 , BLAD+ 1 84 ) 


<* 

(. DEFINE REGION 87 

(• 

REG3D ( 87 . SBLD+403 , SBLD+406 , SBLD+407 , SBLD+408 , SBLD+381 .PLAT+228 , & 
PLAT+295 . PLAT+305 , PLAT+296 , PLAT+288 . LBLD+430 . LBLD+437 . & 
LBLD+43 1 . LBLD+426 , LBLD+425 , LBLD+436 . LBLD+438 , LBLD+427 , & 
PLAT+ 130. PLAT+ 131, PLAT+ 136, PLAT+ 1 37 . BLAD+ 1 83 , BLAD+ 184, & 
BLAD+ 1 87 . BLAD+ 1 88 ) 


<* 

(* DEFINE REGION 88 

(• 

REG3D (88 SBLD+406. SBLD+409 . SBLD+4 10, SBLD+411 .SBLD+412 .PLAT+233 . & 
PLAT+305 . PLAT+3 1 2 . PLAT+322 . PLAT+3 1 3 , LBLD+437 , LBLD+44 1 & 

LBLD+448 , LBLD+44 2 . LBLD+436 . LBLD+447 . LBLD+449 . LBLD+438 & 
PLAT+ 136, PLAT+ 137, PLAT+ 142. PLAT+ 1 43 . BLAD+1 87 , BLAD+ 188. He 
BLAD+191 .BLAD+1 92) 


C 

(* DEFINE REGION 89 

(* 

REG3D (89. SBLD+4 10.SBLD+385, SBLD+4 13, SBLD+4 14. SBLD+4 1 5, PLAT+238. He 
PLAT+808 . PLAT+809 . PLAT+333 . PLAT+322 . LBLD+452 . LBLD+459 . He 
LBLD+453 , LBLD+448 . LBLD+447 . LBLD+458 . LBLD+460 , LBLD+449 , He 
PLAT+1 42 .PLAT+1 43 .PLAT+1 48 .PLAT+1 49. BLAD+1 91 .BLAD+192 . He 
BLAD+1 95, BLAD+1 96) 


( ’ 

(* DEFINE REGION 90 

( * 

REG3D (90. SBLD+4 13. SBLD+4 16, SBLD+4 17. SBLD+4 18, SBLD+4 1 9. PLAT+243, He 
PLAT+340 . PLAT4349 . PLAT+34 1 . PLAT+333 . LBLD+463 , LBLD+469 , He 
LBLD+464 . LBLD+459 , LBLD+458 . LBLD+468 . LBLD+470 . LBLD+460 . He 
PLAT+ 148. PLAT+ 149. PLAT+ 1 54 . PLAT+ 1 55 . BLAD+ 1 95 . BLAD+ 196, He 
BLAD+ 1 99 . BLAD+200 ) 

(* 

(* DEFINE REGION 91 

C 

REG3D (91, SBLD+4 1 7 , SBLD+420 , SBLD+42 1 , SBLD+422 . SBLD+369 , PLAT+200 , He 
PLAT+34 5 . PLAT+35 1 , PLAT+349 , PLAT+348 . LBLD+466 , LBLD+47 1 . He 
LBLD+469 , LBLD+8 1 5 , LBLD+467 . LBLD+468 , LBLD+4 6 5 . LBLD+470 , He 
PLAT+ 153, PLAT+ 154, PLAT+ 152. PLAT+ 1 55 . BLAD+ 1 98 . BLAD+ 199, He 
BLAD+ 1 97 . BLAD+200 ) 

C 
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(• DEFINE. REGION 92 

{ • 

KEG 3D < 92 . SB UK 4 2 1 .-HU'- 423 . SB UK 4 2 4 . SBLD+425 . SBLB+426 . PLAT+248 . & 
PLAT+ 351 PLAT-. :-'.4 PLAT- 3?>'j PLAT+35G . LBLD+-47 1 . LBLD+472 . K 
LBLD+47G LB LI >-*4 7 j LBLP+465 . LBLD+474 . LBLD+475 . LBLD+470 . & 
PLAT+ 1 52 . PLAT+ 1 55 . PLAT- 1 57 . PLAT+ 1 58 . BLAD+ 197 . BLAD+200 , & 
BLAD+20 I B LA P+202 > 



ARC (900. 806. 801 .802) 

ARC ( 90 1 .805.801 .802 > 

ARC (902, 808, 803. 804) 

ARC( 903 . 807 . 803 , 804 ) 

PARMCRV (BLAD+203 ,901 , .05) 

PARMCRV ( BLAD+204 , 900 . . 05 ) 

PARMCRV (BLAD+205 , 903.,'. 05 ) 

PARMCRV ( BLAD+206 , 902 , . 05 ) 

PARMCRV ( BLAD+20? , 90 1 , ( POS 1 + . 05 ) ) 
PARMCRV ( BLAD+208 . 903 . POS 1 ) 
PARMCRV ( BLAD+209 , 902 . POS 1 ) 

(* 
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PARMCRV < BLADES 1 0 900 < POS H 09 n 
PARMCRV < BLAD+2 1 ] . 90 1 ( WPOS H 09 n 

PARMCRV ( BLAD+2 1 2 90 3 Wp< >■'■ 1 » 

PARMCRV < BLAD+2 1 3 902 WPO- 1 » 

PARMCRV I BLAD+2 1 9 900 < WPO:- 1 + 0'» > I 
PARMCRV ( BLAD+2 1 5 . 90 1 < POS2+ 09 ) ) 

PARMCRV < BLAD+2 1 6 903 POP2 > 

PARMCRV (BLAD+2 IT. 902. P0S2 > 

PARMCRV (BLAD+2 18, 900 (POS2+.05)) 

PARMCRV ( BLAD+2 19 , 901 (WP0S2+ 05) ) 

* 

PARMCRV (BLAD+220 , 903 , WPOS2 ) 

PARMCRV (BLAD+221 .902.WPOS2) 

PARMCRV (BLAD+222 , 900 , (WPOS2+ . 05) ) 

PARMCRV (BLAD+223 ,901, POS3 ) 

PARMCRV ( BLAD+224 , 903 . POS3 ) 

PARMCRV (BLAD+225 , 902 , POS3 ) 

PARMCRV ( BLAD+226 , 900 . POS3 ) 

PARMCRV ( BLAD+227 ,901, WPOS3 ) 

PARMCRV (BLAD+2 2 8 . 903 . WPOS3 ) 

PARMCRV (BLAD+229 . 902 WPOS3) 

(* 

PATOICRV (BLAD+230 . 900 .WPOS3 ) 

PARMCRV (BLAD+231 .901 , (POS4-.05)) 

PATOICRV ( BLAD+232 . 903 . POS4 ) 

PARMCRV ( BLAD+233 . 902 . P0S4 ) 

PARMCRV (BLAD+234 , 900 . (POS4-. 05) ) 

PARMCRV ( BLAD+235 , 90 1 , ( WPOS4- . 05 ) ) 

PARMCRV ( BLAD+236 , 903 WP0S4 ) 

PARMCRV (BLAD+237 , 902 . WPOS4 ) 

PARMCRV (BLAD+238 , 900 , (WPOS4- . 05) ) 

PARMCRV (BLAD+239,903. .97) 

( * 

PATOICRV (BLAD+240,902. .97) 

PATOICRV ( BLAD+24 1,901,90) 

PATOICRV ( BLAD+242 , 900 . 90 > 

PARMCRV (BLAD+243 , 901 , 97 ) 

PARMCRV ( BLAD+2 4 4 . 900 97 > 

< ’ 

« * 

<* CONSTRUCT TEMPORARY POINTS NEEDED TO DEFINE CURVES 

( * 

PATOICRV ( 900 , 900 . < POS 1 /2 ) ) 

PARMCRV (901 .900 . (POS1+WPOS1+ 1 )/2) 

PARMCRV (902,900. (WPOS 1+POS2+ . l)/2) 

PARMCRV (903 . 900 . (POS2+WPOS2+ 1 )/2) 

PARMCRV (904,900. (WPOS2+POS3+. 05) /2) 

PARMCRV ( 905 , 900 . ( POS3+WPOS3 ) /2 ) 

PARMCRV ( 906 , 900 . ( WPOS3+POS4 )/ 2 ) 

PARMCRV (907 , 900 , (POS4+WPOS4- 1 )/2) 

PARMCRV (908,900 , (WPOS4+. 90) /2) 

PATOICRV (909,900, .935) 

<* 
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PAKMCRV (910. 902 . ( POS 1 2 ) ) 

PARMCRV (911. 902 . ( POS 1 +WPOS 1)21 
PARMCRV ( 9 1 2 . 902 . ( WPOS 1 +POS2 I 2 1 
PARMCRV (913. 902 . ( POS2+WPOS2 ) 2 ) 
PARMCRV (914.902. (WPOS2+POS31 2) 
PARMCRV (915. 902 . ( POS3+WPOS3 >.2) 
PARMCRV (916. 902 . ( WPOS3+POS4 1 1 

PARMCRV (917. 902 , ( POS4+WPOS4 ) /2 1 
PARMCRV (918.902. (WP0S4+ 97) /2) 

<* 

PARMCRV (919.903. (P0S1/2) ) 

PARMCRV (920.903. (POS 1+WPOS1 )/2) 
PARMCRV (921 ,903. (WPOS l+POS2)/2) 
PARMCRV (922.903. (POS2+WPOS2 )/2 ) 
PARMCRV (923,903. (WPOS2+POS3 )/2 ) 
PARMCRV ( 924 . 903 . ( POS3+WPOS3 ) /2 ) 
PARMCRV ( 925 . 903 . ( WPOS3+POS4 )/2 ) 
PARMCRV ( 926 . 903 . ( P0S4+WP0S4 )/2 ) 
PARMCRV (927.903. (WPOS4+ 97)/2) 

(’ 

PARMCRV (928,901 . (POS 1/2)) 

PARMCRV (929.901 . (POS1+WPOS1+ l)/2) 
PARMCRV (930.901 . (WPOS1+POS2+ . l)/2) 
PARMCRV ( 93 1 . 90 1 . ( POS2+WPOS2+ 1 ) /2 ) 
PARMCRV (932,901 , (WPOS2+POS3+ 051/2) 
PARMCRV (933.901 . (POS3+WPOS3)/2) 
PARMCRV (934.901. ( WPOS3+POS4 )/2 ) 
PARMCRV ( 935 . 90 1 . ( POS4+WPOS4- . 1 ) /2 ) 
PARMCRV (936.901 , (WPOS4+. 90) /2) 
PARMCRV (937.901, 935) 

(V 

<* 


( ’ 

(♦ *- BLADE CURVE DEFINITIONS - 

(* DEFINE ESMOSS CURVES 

(’ 


( ’ 

LINE ( LBLD+477 , BLAD+ 161. BLAD+203 ) 

LINE (LBLD+478. BLAD+203, BLAD+204) 

LINE (LBLD+479.BLAD+ 162, BLAD+204) 

(* 

LINE ( LBLD+480 , BLAD+ 1 63 . BLAD+205 ) 

LINE ( LBLD+48 1 . BLAD+205 . BLAD+206 ) 

LINE (LBLD+482.BLAD+ 164, BLAD+206) 
ARCCF( LB LD+483 , BLAD+203 . BLAD+207 . 928 ) 
LINE (LBLD+484, BLAD+205. BLAD+208) 

LINE (LBLD+485. BLAD+206, BLAD+209) 
ARCCF ( LBLD+486 , BLAD+204 , BLAD+2 10,900) 
LINE ( LBLD+487 . BLAD+ 165, BLAD+207) 

LINE (LBLD+488. BLAD+207, BLAD+208) 

LINE ( LBLD+489 , BLAD+ 166, BLAD+208) 
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LINE ( LBLD+4 90 . BLAD+208 . BLAD-t 209 ) 

LINE ( LBLD+4 9 1 . BLAD+ 167 . BLAD+209 > 

LINE < LBLDM92 . BLAD+209 . BLAD+2 1 H ) 

LINE < LBLD+4 93 . BLAD+ 1 68 . BLAD+2 1 0 ) 

LINE < LBLD+494 .BLAD+207 .BLAD+2 1 11 
LINE ( LBLD+4 95 .BLAD+208 .BLAD+2 12 ) 

LINE ( LBLD+4 96 , BLAD+209 . BLAD+2 1 3 ) 

LINE ( LBLD+497, BLAD+2 1 0, BLAD+2 14 ) 

LINE ( LBLD+498 , BLAD+ 1 69 . BLAD+2 1 1 ) 

LINE ( LBLD+499 . BLAD+2 1 1 . BLAD+2 1 2 ) 

[* 

LINE ( LBLD+500 , BLAD+ 1 70 , BLAD+2 1 2 ) 

LINE ( LBLD+50 1 . BLAD+2 1 2 , BLAD+2 1 3 ) 

LINE ( LBLD+502 . BLAD+ 171 .BLAD+2 13) 

LINE (LBLD+503, BLAD+2 13, BLAD+2 14) 

LINE ( LBLD+504 . BLAD+ 172, BLAD+2 14) 
ARCCF( LBLD+505 . BLAD+2 1 1 , BLAD+2 15,930) 
LINE (LBLD+506 .BLAD+2 12 .BLAD+216) 

LINE (LBLD+507. BLAD+2 13. BLAD+2 17) 
ARCCF( LBLD+508 , BLAD+2 1 4 , BLAD+2 18,902) 
LINE ( LBLD+509 . BLAD+ 1 73 , BLAD+2 15) 

C 

LINE ( LBLD+5 1 0 , BLAD+2 1 5 , BLAD+2 16) 

LINE (LBLD+51 1 .BLAD+ 174 .BLAD+216) 

LINE (LBLD+5 12, BLAD+2 16. BLAD+2 17) 

LINE (LBLD+513.BLAD+ 175, BLAD+2 17) 

LINE (LBLD+5 14. BLAD+2 17 .BLAD+2 18) 

LINE (LBLD+5 15 .BLAD+176 .BLAD+218) 

LINE (LBLD+5 16, BLAD+2 15, BLAD+2 19) 

LINE (LBLD+5 17, BLAD+2 1 6. BLAD+220) 

LINE ( LBLD+5 18, BLAD+2 1 7, BLAD+221) 

LINE (LBLD+5 19, BLAD+2 1 8. BLAD+222) 

(* 

LINE ( LBLD+520 . BLAD+ 177, BLAD+2 19) 

LINE ( LBLD+521 .BLAD+2 19 .BLAD+220) 

LINE ( LBLD+522 , BLAD+ 1 78 . BLAD+220 ) 

LINE (LBLD+523. BLAD+220. BLAD+221) 

LINE ( LBLD+524 .BLAD+ 179 .BLAD+221 ) 

LINE (LBLD+525. BLAD+221 .BLAD+222) 

LINE ( LBLD+526 .BLAD+ 180. BLAD+222) 
ARCCF< LBLD+527 . BLAD+2 1 9 . BLAD+223 , 932 ) 
LINE (LBLD+528. BLAD+220, BLAD+224) 

LINE ( LBLD+529 . BLAD+2 2 1 , BLAD+225 ) 

C 

ARCCF ( LBLD+530 , BLAD+222 , BLAD+22G , 904 ) 
LINE (LBLD+531 .BLAD+181 .BLAD+223) 
LINE (LBLD+532, BLAD+223. BLAD+224) 

LINE (LBLD+533 .BLAD+ 182 .BLAD+224) 

LINE (LBLD+534, BLAD+224 .BLAD+225) 
LINE (LBLD+535.BLAD+ 183 .BLAD+225) 
LINE ( LBLD+536. BLAD+225 .BLAD+226) 
LINE (LBLD+537.BLAD+ 184, BLAD+226) 
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LINE < LBLD+538 . BLAD+223 . BLAD+227 ) 

LINE ( LBLD+539 . BLAD+224 . BLAD+228 ) 

( • 

LINE < LBLD+540 . BLAD+225 . BLAD+229 l 
LINE < LBLD+54 1 . BLAD+226 . BLAD+230 ) 

LINE ( LBLD+542 . BLAD+ 1 85 . BLAD+227 ) 

LINE < LBLD+543 BLAD+227 . BLAD+228 ) 

LINE ( LBLD+544 . BLAD+ 186. BLAD+228) 

LINE (LBLD+545. BLAD+228. BLAD+229) 

LINE ( LBLD+546 , BLAD+ 187, BLAD+229) 

LINE ( LBLD+547 , BLAD+229 , BLAD+230 ) 

LINE < LBLD+548 . BLAD+ 188. BLAD+230) 
ARCCF( LBLD+549 . BLAD+227 , BLAD+23 1,934) 

C 

LINE ILBLD+550, BLAD+228. BLAD+232) 

LINE (LBLD+551 .BLAD+229, BLAD+233) 
ARCCFI LBLD+552 . BLAD+230 , BLAD+234 , 906 ) 
LINE ( LBLD+553 . BLAD+ 189, BLAD+23 1) 

LINE ( LBLD+554 . BLAD+23 1 , BLAD+232 ) 

LINE (LBLD+555.BLAD+ 190, BLAD+232) 

LINE (LBLD+556. BLAD+232, BLAD+233) 

LINE ( LBLD+557 , BLAD+ 191, BLAD+233 ) 

LINE (LBLD+558, BLAD+233. BLAD+234) 

LINE (LBLD+559.BLAD+ 192, BLAD+234) 

<* 

LINE ( LBLD+560, BLAD+23 1 .BLAD+235) 

LINE ( LBLD+56 1 , BLAD+232 . BLAD+236 ) 

LINE (LBLD+562. BLAD+233. BLAD+237) 

LINE (LBLD+563, BLAD+234. BLAD+238) 

LINE (LBLD+564.BLAD+ 193. BLAD+235) 

LINE (LBLD+565. BLAD+235, BLAD+236) 

LINE (LBLD+566. BLAD+236. BLAD+237) 

LINE ( LBLD+567 , BLAD+ 195. BLAD+237) 

LINE (LBLD+568, BLAD+237. BLAD+238) 

LINE (LBLD+569.BLAD+ 196, BLAD+238) 

<• 

ARCCFI LBLI>+570 . BLAD+235 , BLAD+24 1 , 936 ) 
LINE < LBLD+57 1 , BLAD+236 . BLAD+239 ) 

LINE ( LBLD+572, BLAD+237, BLAD+240) 
ARCCFI LBLD+573 , BLAD+238 , BLAD+242 , 908 ) 
LINE (LBLD+574.BLAD+ 198. BLAD+239) 

LINE (LBLD+575.BLAD+ 199. BLAD+240) 

LINE (LBLD+576. BLAD+239. BLAD+240) 

LINE (LBLD+577. BLAD+239, BLAD+24 1) 

LINE (LBLD+578, BLAD+240. BLAD+242) 

LINE (LBLD+579.BLAD+ 197, BLAD+24 1) 

(’ 

LINE (LBLD+580.BLAD+20.0, BLAD+242) 

LINE (LBLD+581 .BLAD+24 1 .BLAD+242) 
ARCCF ( LBLD+582 . BLAD+24 1 , BLAD+243 . 937 ) 
ARCCF( LBLD+583 , BLAD+242 , BLAD+244 ! 909 ) 
LINE (LBLD+584.BLAD+201 .BLAD+243) 

LINE (LBLD+585.BLAD+202, BLAD+244) 
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LINE < LBLD+586 . BLAD+243 . BLAD+244 ) 

( * 

LINE < LBLD*816 . BLAD+203 .BLAD+2U5 ) 

LINE ( LBLD+817 ,BLAD-r204 BLAD-r206 ► 

LINE ( LBLD+8 1 8 . BLAD+ 1 94 . BLAD+236 » 

( * 

(• DELETE TEMPORARY POINTS THAT WERE CONSTRICTED 
(’ 

DELETEPT (900) 

DELETEPT (901) 

DELETEPT (902) 

DELETEPT (903) 

DELETEPT (904) 

DELETEPT (905) 

DELETEPT (906) 

DELETEPT (907) 

DELETEPT ( 908 ) 

DELETEPT (909) 

C 

DELETEPT (910) 

DELETEPT (911) 

DELETEPT (912) 

DELETEPT (913) 

DELETEPT (914) 

DELETEPT (915) 

DELETEPT (916) 

DELETEPT (917) 

DELETEPT (918) 

DELETEPT (919) 

C 

DELETEPT (920) 

DELETEPT (921) 

DELETEPT (922) 

DELETEPT (923) 

DELETEPT (924) 

DELETEPT (925) 

DELETEPT (926> 

DELETEPT (927) 

DELETEPT (928) 

DELETEPT (929) 

(* 

DELETEPT (930) 

DELETEPT (931) 

DELETEPT (932) 

DELETEPT (933) 

DELETEPT (934) 

DELETEPT (935) 

DELETEPT (936) 

DELETEPT (937) 

<• 


- BLADE SURFACE DEFINITIONS - 
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I ’ DEFINE ESMOSS SI TiFACES 

( * 


( • 

< ’ 

<♦ SURFACES FOR REGION 93 
( • 

RULEDSRF ( SBLD+430 . LBLD+368 . LBLD+8 1 6 ) 
RULEDSRF ( SBLD+43 1 . LBLD+370 . LBLD+481 ) 
RULEDSRF ( SBLD+43 2 , LBLD+369 . LBLD+8 IT) 
RULEDSRF ( SBLD+433 , LBLD+365 . LBLD+478 ) 
RULEDSRF < SBLD+434 . LBLD+48 1 , LBLD+478 ) 

<• 

( ’ SURFACES FOR REGION 94 

C 

RULEDSRF ( SBLD+435 . LBLD+373 . LBLD+483 ) 
RULEDSRF ( SBLD+436 , LBLD+390 . LBLD+488 ) 
RULEDSRF ( SBLD+437 . LBLD+376 , LBLD+484 ) 
RULEDSRF ( SBLD+438 . LBLD+483 , LBLD+484 ) 

( * 

(* SURFACES FOR REGION 95 
<’ 

RULEDSRF ( SBLD+439 , LBLD+38 1 , LBLD+494 ) 
RULEDSRF ( SBLD+440 . LBLD+393 . LBLD+499 ) 
RULEDSRF ( SBLD+44 1 , LBLD+382 . LBLD+495 ) 
RULEDSRF ( SBLD+442 , LBLD+494 . LBLD+495 ) 

C 

(* SURFACES FOR REGION 96 

C 

RULEDSRF ( SBLD+443 . LBLD+396 , LBLD+505 ) 
RULEDSRF ( SBLD+444 . LBLD+40 1 . LBLD+5 1 0 ) 
RULEDSRF ( SBLD+445 . LBLD+397 . LBLD+506 ) 
RULEDSRF < SBLD+446 , LBLD+505 , LBLD+506 ) 

(* 

(* SURFACES FOR REGION 97 

<* 

RULEDSRF ( SBLD+447 , LBLD+406 . LBLD+5 1 6 ) 
RULEDSRF ( SBLD+448 , LBLD+4 1 1 , LBLD+52 1 ) 
RULEDSRF ( SBLD+44 9 . LBLD+407 . LBLD+5 17 ) 
RULEDSRF < SBLD+450 , LBLD+5 16 , LBLD+5 17 ) 

C 

(• SURFACES FOR REGION 98 
{’ 

RULEDSRF (SBLD+451 . LBLD+4 17 . LBLD+527) 
RULEDSRF (SBLD+452 , LBLD+4 22 . LBLD+532) 
RULEDSRF ( SBLD+453 , LBLD+4 18 . LBLD+528 ) 
RULEDSRF ( SBLD+454 , LBLD+527 . LBLD+528 ) 

C 

(* SURFACES FOR REGION 99 
<’ 

RULEDSRF ( SBLD+455 . LBLD+428 . LBLD+538 ) 
RULEDSRF ( SBLD+456 , LBLD+433 . LBLD+543 ) 
RULEDSRF ( SBLD+457 , LBLD+429 . LBLD+539 ) 
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-RULEDSRF < SBLD+458 . LBLD+538 LBLFM *>39 ) 

( • 

< • SURFACES FOR REGION 100 

< • 

RULEDSRF < SBLD+459 . LBLD+4 39 . LBLD+549 ) 
RULEDSRF ( SBLD+460 . LBLD+444 , LBLD+554 ) 
RllLEDSRF ( SBLD+46 1 . LBLD+440 . LBLD+550 ) 
RULEDSRF ( SBLD+462 . LBLD+549 , LBLD+550) 

<* 

(’ SURFACES FOR REGION 101 

( * 

RULEDSRF ( SBLD+463 , LBLD+450 . LBLD+560 ) 
RULEDSRF ( SBLD+464 . LBLD+455 , LBLD+565 ) 
RULEDSRF (SBLD+465 . LBLD+451 , LBLD+56 1 ) 
RULEDSRF ( SBLD+466 . LBLD+560 , LBLD+56 1 ) 

(* 

( » SURFACES FOR REGION 102 
<• 

RULEDSRF ( SBLD+467 . LBLD+46 1 , LBLD+570 ) 
RULEDSRF ( SBLD+468 , LBLD+466 , LBLD+577 ) 
RULEDSRF ( SBLD+469 , LBLD+462 , LBLD+57 1 ) 
RULEDSRF ( SBLD+470 , LBLD+570 . LBLD+57 1 ) 

<’ 

(* SURFACES FOR REGION 103 

C 

RULEDSRF < SBLD+47 1 . LBLD+39 1 , LBLD+490 ) 
RULEDSRF ( SBLD+472 , LBLD+394 . LBLD+50 1 ) 
RULEDSRF ( SBLD+473 . LBLD+383 . LBLD+496 ) 
RULEDSRF ( SBLD+474 , LBLD+490 . LBLD+50 1 ) 

C 

(* SURFACES FOR REGION 104 

C 

RULEDSRF ( SBLD+475 . LBLD+4 13 . LBLD+523) 
RULEDSRF ( SBLD+476 . LBLD+408 , LBLD+5 1 8 ) 
RULEDSRF ( SBLD+477 . LBLD+402 , LBLD+5 1 2 ) 
RULEDSRF (SBLD+478 , LBLD+5 17 . LBLD+5 18) 

< * 

( ’ SURFACES FOR REGION 105 
<* 

RULEDSRF ( SBLD+479 . LBLD+435 , LBLD+545) 
RULEDSRF ( SBLD+480 . LBLD+430 . LBLD+540 ) 
RULEDSRF ( SBLD+48 1 . LBLD+424 . LBLD+534 ) 
RULEDSRF ( SBLD+482 . LBLD+539 , LBLD+540 ) 

<* 

(* SURFACES FOR REGION 106 
(’ 

RULEDSRF ( SBLD+483 . LBLD+457 . LBLD+566 ) 
RULEDSRF ( SBLD+484 , LBLD+4 5 2 . LBLD+562 ) 
RULEDSRF ( SBLD+48 5 , LBLD+446 , LBLD+556 ) 
RULEDSRF ( SBLD+486 , LBLD+56 1 . LBLD+562 ) 

C 

(• SURFACES FOR REGION 107 

C 
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RULEDSRF ( SBLD+487 . LBLD+377 , LBLD+485 ) 
RULEDSRF < SBLD+488 . LBLD+392 , LBLD+492 ) 
RULEDSRF ( SBLD+489 . LBLD+380 . LBLD+486 ) 
RULEDSRF < SBLD+490 . LBLD+485 . LBLD+48G ) 

< * 

(’ SURFACES FOR REGION 108 
< * 

RULEDSRF (SBLD+491 . LBLD+395 . LBLD+503 ) 
RULEDSRF ( SBLD+492 , LBLD+384 . LBLD+497 ) 
RULEDSRF ( SBLD+493 , LBLD+496 , LBLD+497 ) 

< * 

(* SURFACES FOR REGION 109 

C 

RULEDSRF (SBLD+495 . LBLD+404 , LBLD+514) 
RULEDSRF (SBLD+496 . LBLD+399 , LBLD+508) 
RULEDSRF ( SBLD+497 , LBLD+398 . LBLD+507 ) 
RULEDSRF ( SBLD+498 , LBLD+507 , LBLD+508 ) 

(* 

(* SURFACES FOR REGION 110 
( * 

RULEDSRF ( SBLD+499 , LBLD+4 1 5 , LBLD+525 ) 
RULEDSRF ( SBLD+500 , LBLD+409 , LBLD+519) 
RULEDSRF (SBLD+501 , LBLD+518 , LBLD+519) 

(* 

(* SURFACES FOR REGION 111 

C 

RULEDSRF (SBLD+502 , LBLD+4 19 , LBLD+529) 
RULEDSRF ( SBLD+503 . LBLD+426 , LBLD+536 ) 
RULEDSRF ( SBLD+504 , LBLD+420 , LBLD+530 ) 
RULEDSRF ( SBLD+505 . LBLD+529 , LBLD+530 ) 

(* 

(• SURFACES FOR REGION 112 
(• 

RULEDSRF ( SBLD+506 . LBLD+437 . LBLD+547 ) 
RULEDSRF ( SBLD+507 . LBLD+43 1 , LBLD+54 1 ) 
RULEDSRF ( SBLD+508 . LBLD+540 , LBLD+54 1 ) 

( * 

(* SURFACES FOR REGION 113 
<* 

RULEDSRF ( SBLD+509 . LBLD+44 1 . LBLD+55 1 ) 
RULEDSRF ( SBLD+510 . LBLD+448 . LBLD+558) 
RULEDSRF ( SBLD+5 1 1 . LBLD+442 , LBLD+552 ) 
RULEDSRF (SBLD+5 12 , LBLD+55 1 , LBLD+552) 

( * 

(* SURFACES FOR REGION 114 

RULEDSRF ( SBLD+5 13 , LBLD+459, LBLD+568) 
RULEDSRF (SBLD+5 14 , LBLD+453 . LBLD+563 ) 
RULEDSRF ( SBLD+5 1 5 . LBLD+562 , LBLD+563 ) 

(* 

(• SURFACES FOR REGION 115 

(* 

RULEDSRF ( SBLD+5 16 , LBLD+463 . LBLD+572) 
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RULEDSRF ( SBLD+517 . LBLD+469 . LBLD+078 t 
RULEDSRF < SBLD+518 . LBLD+464 LBLD+573 > 

RULEDSRF < SBLD+519 . LBLD+572 . LBLD+5 7 3 * 

( • 

< • SURFACES FOR REGION 116 
( ’ 

RULEDSRF ( SBLD+520 . LBLD+8 1 5 . LBLD+576 ) 

RULEDSRF ( SBLD+52 1 , LBLD+47 1 . LBLD+58 1 ) 

RULEDSRF ( SBLD+52 2 , LBLD+576 , LBLD+58 1 ) 

< * 

(* SURFACES FOR REGION 117 
( * 

RULEDSRF ( SBLD+523 , LBLD+472 . LBLD+582 ) 

RULEDSRF ( SBLD+524 , LBLD+47 6 , LBLD+586 ) 

RULEDSRF ( SBLD+525 , LBLD+473 , LBLD+583 ) 

RULEDSRF ( SBLD+526 , LBLD+582 , LBLD+583 ) 

( 

( 

< 

< 

( 

< 

( 

< 

DEFINE REGION 93 

( * REG3D ( 93 . SBLD+430 , SBLD+43 1 , SBLD+432 . SBLD+433 . SBLD+434 . SBLD+650 . Sc 
LBLD+368 , LBLD+370 , LBLD+369 , LBLD+365 , LBLD+8 16 . LBLD+481 . Sc 
LBLD+8 1 7 . LBLD+478 , LBLD+477 , LBLD+480 . LBLD+482 , LBLD+479 . Sc 
BLAD+ 161, BLAD+ 162, BLAD+ 163. BLAD+ 1 64 , BLAD+203 . BLAD+204 . Sc 
BLAD+205 , BLAD+206 ) 

( * 

DEFINE REGION 94 

REG 3D ( 94 , SBLD+430 , SBLD+435 , SBLD+436 , SBLD+437 . SBLD+438 , SBLD+339 Sc 
LBLD+373 . LBLD+390 , LBLD+376 , LBLD+368 LBLD+483 . LBLD+488 , Sc 
LBLD+484 , LBLD+8 1 6 . LBLD+487 . LBLD+489 . LBLD+480 . LBLD+477 . Sc 
BLAD+ 161, BLAD+ 1 63 . BLAD+ 165. BLAD+ 1 66 . BLAD+203 BLAD+205 , Sc 
BLAD+207 , BLAD+208 ) 

I * 

, < DEFINE REGION 95 

REG3D ( 95 . SBLD+439 . SBLD+440 . SBLD+44 1 . SBLD+442 . SBLD+343 , SBLD+436 & 
LBLD+38 1 . LBLD+393 . LBLD+382 , LBLD+390 . LBLD+494 . LBLD+499 . Sc 
LBLD+495 . LBLD+488 . LBLD+487 . LBLD+498 . LBLD+500 , LBLD+489 . Sc 
BLAD+165 .BLAD+166 .BLAD+169 , BLAD+ 1 70 . BLAD+207 .BLAD+208 , Sc 
BLAD+2 1 1 . BLAD+2 1 2 ) 

C 

(. DEFINE REGION 96 

( * 

REG3D ( 96 , SBLD+440 . SBLD+443 , SBLD+444 , SBLD+445 . SBLD+446 , SBLD+347 , Sc 
LBLD+396 , LBLD+40 1 . LBLD+397 , LBLD+393 . LBLD+505 , LBLD+5 1 0 , Sc 
LBLD+506 . LBLD+499 , LBLD+498 . LBLD+509 . LBLD+5 1 1 . LBLD+500 . Sc 


- BLADE REGION DEFINITIONS - 
DEFINE ESMOSS REGIONS 
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BLAD+ 1 69 .BLAD+1 70 BLAD+1 73 BLAD- 174 BLAB-21 1 BLAD+2 12 . Sc 
BLAD+2 1 5 , BLAD+2 1 6 ) 

I ’ 

( • DEFINE REGION 97 

( * 

REG 3D ( 97 , SBLD+444 . SBLD+447 , SBLD+448 , SBLD+449 . SBLD+450 . SBLD+351 . & 
LBLD+406 . LBLD+4 1 1 LBLD+407 . LBLD-*-401 . LBLD+5 1 6 . LBLD+5 2 1 & 

LBLD+5 1 7 , LBLD+5 1 0 . LBLD+509 . LBLD+520 , LBLD+522 . LBLD+5 1 1 . & 
BLAD+ 1 73 . BLAD+ 174, BLAD+ 1 77 , BLAD+ 1 78 , BLAD+2 1 5 , BLAD+2 16, Sc 
BLAD+2 1 9, BLAD+220) 

(* 

(* DEFINE REGION 98 

(* 

REG 3D < 98, SBLD+448, SBLD+45 1 , SBLD+452 , SBLD+453 . SBLD+454 . SBLD+355 . Sc 
LBLD+4 1 7 , LBLD+4 2 2 , LBLD+4 1 8 . LBLD+4 1 1 , LBLD+527 . LBLD+5 3 2 . & 
LBLD+528 . LBLD+52 1 , LBLD+520 . LBLD+53 1 . LBLD+533 , LBLD+522 . & 
BLAD+177 , BLAD+178 , BLAD+1 81 , BLAD+ 1 82 , BLAD+2 1 9 , BLAD+220 , Sc 
BLAD+223 , BLAD+224 ) 

( * 

( * DEFINE REGION 99 

( 4 

REG3D < 99 , SBLD+452 , SBLD+455 , SBLD+456 , SBLD+457 . SBLD+458 , SBLD+359 , Sc 
LBLD+428 . LBLD+433 . LBLD+4 2 9 , LBLD+4 22 . LBLD+538 . LBLD+543 . & 
LBLD+539 , LBLD+532 . LBLD+53 1 . LBLD+542 . LBLD+544 , LBLD+533 . Sc 
BLAD+ 181. BLAD+ 182, BLAD+ 185, BLAD+ 186. BLAD+223 . BLAD+224 , & 
BLAD+227 , BLAD+228 ) 

(* 

( * DEFINE REGION 100 

(' 

REG3D( 100, SBLD+456, SBLD+459 . SBLD+460 , SBLD+461 . SBLD+462 . SBLD+363 . & 
LBLD+4 3 9 , LBLD+444 , LBLD+440 , LBLD+433 . LBLD+549 , LBLD+554 , & 
LBLD+550 . LBLD+543 , LBLD+542 , LBLD+553 . LBLD+555 . LBLD+544 . & 
BLAD+ 185 BLAD+ 1 86 , BLAD+ 189. BLAD+ 1 90 . BLAD+227 , BLAD+228 . & 
BLAD+231 . BLAD+2 3 2 ) 

( * 

(* DEFINE REGION 101 

( * 

REG 3D ( 101 , SBLD+460 . SBLD+463 . SBLD+464 . SBLD+465 . SBLD+466 . SBLD+367 . & 
LBLD+4 50 . LBLD+455 , LBLD+4 5 1 , LBLD+444 . LBLD+560 , LBLD+565 , Sc 
LBLD+56 1 . LBLD+554 . LBLD+553 , LBLD+564 . LBLD+8 1 8 . LBLD+555 . & 
BLAD+ 189, BLAD+ 1 90 , BLAD+ 193. BLAD+ 1 94 , BLAD+23 1 . BLAD+232 , Sc 
BLAD+235 .BLAD+236 ) 

( ’ 

C DEFINE REGION 102 

( * 

REG3D< 1 02 , SBLD+464 . SBLD+467 , SBLD+468 . SBLD+469 . SBLD+470 . SBLD+37 1 , Sc 
LBLD+46 1 , LBLD+4 6 6 . LBLD+462 . LBLD+455 . LBLD+570 . LBLD+577 , Sc 
LBLD+57 1 , LBLD+565 . LBLD+564 , LBLD+5 7 9 . LBLD+574 , LBLD+8 1 8 , Sc 
BLAD+1 93, BLAD+1 94. BLAD+1 97, BLAD+1 98. BLAD+235. BLAD+236, Sc 
BLAD+241 .BLAD+239) 

C 

( 4 DEFINE REGION 103 

C 
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REG 31 G 103 . SBLD+44 1 .SBLD+471 . SBLD+472 . SBLD+473 5RLD+474 . SBLD+375 6c 
LBLD+382 . LBLD+394 . LBLD+383 . LBLD-* 39 1 LBLP+495 . LBLIH50 1 .V 
LBLD+496 . LBLD+490 . LBLD+4 89 . LBLD-*-500 LBLD+502 . LBLD-M91 cc 
BLAlH 160 . BLAD+ 1 07 . BLAD+ 1 70 . BLAI)» 171. BLAD+208 . BLAD+209 . & 
BLAD+2 1 2 . BLAD+2 1 3 1 


< ’ 

<• • DEFINE REGION 104 

1 * 

REG3D(104 SBLD+449 , SBLD+475 , SBLD+476 , SBLD+477 , SBLD+478 , SBLD+379 . & 
LBLD+407 , LBLD+4 13 . LBLD+408 . LBLD+402 . LBLD+517 . LBLD+523 , Sc 
LBLD+5 1 8 , LBLD+5 1 2 , LBLD+5 1 1 . LBLD+522 . LBLD+524 , LBLD+5 1 3 , 6c 

BLAD+174.BLAD+175 .BLAD+178. BLAD+179.BLAD+216. BLAD+2 17. 6c 

BLAD+220 . BLAD+22 1 ) 


r 

(* DEFINE REGION 105 

REG3D( 105 . SBLD+457 , SBLD+479 , SBLD+480 , SBLD+481 . SBLD+482 SBLD+383 . 6c 
LBLD+4 2 9 . LBLD+4 3 5 , LBLD+4 30 , LBLD+424 , LBLD+539 . LBLD+545 . Sc 
LBLD+540 . LBLD+534 , LBLD+533 , LBLD+544 . LBLD+546 . LBLD+535 . & 
BLAD+ 1 82 , BLAD+ 1 83 . BLAD+ 1 86 . BLAD+ 1 87 . BLAD+224 . BLAD+225 . Sc 
BLAD+228 , BLAD+229 ) 


( ’ 

(♦ DEFINE REGION 106 

( * 

REG3D( 1 06 . SBLD+465 . SBLD+483 , SBLD+484 , SBLD+485 . SBLD+486 , SBLD+38 i 
LBLD+45 1 . LBLD+457 , LBLD+452 , LBLD+446 . LBLD+56 1 . LBLD+566 , Sc 
LBLD+562 . LBLD+556 . LBLD+555 , LBLD+8 1 8 . LBLD+567 . LBLD+5 57 , 6c 
BLAD+ 1 90 , BLAD+ 191. BLAD+ 1 94 . BLAD+ 1 95 . BLAD+232 . BLAD+233 . 6c 


BLAD+236 . BLAD+237 ) 


6c 


< ’ 

DEFINE REGION 107 

( * 

REG3D< 1 07 . SBLD+432 . SBLD+487 . SBLD+488 , SBLD+489 . SBLD+490 . SBLD+39 1 , & 
LBLD+377 . LBLD+392 ^LBLD+380 . LBLD+369 , LBLD+485 . LBLD+492 , 6c 
LBLD+486 . LBLD+8 1 7 . LBLD+482 , LBLD+4 91 . LBLD+493 , LBLD+4 7 9 , Sc 
BLAD+164 .BLAD+162 .BLAD+167 .BLAD+168 .BLAD+204 .BLAD+206 , 6c 
BLAD+209 . BLAD+2 1 0 ) 

( * 

( • DEFINE REGION 108 

( ' 

REG jl 1 08 . SBLD+488 . SBLD+473 . SBLD+491 . SBLD+492 . SBLD+493 . SBLD+394 . 6c 
LBLD+383 . LBLD+395 . LBLD+384 . LBLD+392 . LBLD+4 9 6 . LBLD+503 , & 
LBLD+497 . LBLD+492 , LBLD+49 1 . LBLD+502 , LBLD+504 , LBLD+493 , Sc 
BLAD+167 .BLAD+168 .BLAD+171 . BLAD+ 172. BLAD+209 , BLAD+2 1 0 . Sc 
BLAD+2 1 3 , BLAD+2 1 4 ) 


< * 

(• DEFINE REGION 109 

<* 

REG3D (109, SBLD+49 1 , SBLD+495 . SBLD+496 , SBLD+497 , SBLD+498 , SBLD+398 , 6c 
LBLD+398 , LBLD+404 , LBLD+399 . LBLD+395 , LBLD+507 . LBLD+5 14, Sc 
LBLD+508 . LBLD+503 . LBLD+502 , LBLD+513 . LBLD+5 15 . LBLD+504 , 6c 
BLAD+ 171. BLAD+ 172, BLAD+ 175. BLAD+ 1 76 . BLAD+2 1 3 , BLAD+2 14 , 6c 
BLAD+2 1 7 , BLAD+2 1 8 ) 
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( ’ 

( • ' 

I • 


DEFINE REGION 110 


KF.G3IM 110 .SBLI>-MO r > . SBLD+476 SBLD*49y SBL!)- 1 500 SBLD+501 . SBLD+40 1 K 
LBLD+4U8 . LBLD+4 1 5 . LBLD+4U9 . LBUH404 LBLD+518 LBl.l)-*-525 . <Sc 
LBLD+519 . LBLD+514 . LBLD+513 . LBLD+524 LBLD+52U . LBLD+515 . <«: 
BLAD+175 .BLAD+176 .BLAD+179 .BLAP+180 BLAD+217 BLAD-‘- : .' 1 8 & 

BLAD+221 . BLAD+222 ) 

( * 

{• DEFINE REGION 111 

<* 

REG3D( 111. SBLD+499 . SBLD+502 , SBLD+503 . SBLD+504 . SBLD+505 . SBLD+405 . 6c 
LBLD+4 19 , LBLD+426 . LBLD+4 20 . LBLD+415 . LBLD+529 . LBLD+536 . & 
LBLD+530 . LBLD+525 , LBLD+524 , LBLD+535 . LBLD+537 , LBLD+526 . 6c 
BLAD+ 179. BLAD+ 1 80 . BLAD+ 1 83 , BLAD+ 1 84 . BLAD+22 1 . BLAD+222 . 6c 
BLAD+225 .BLAD+226 ) 

<’ 

<’ DEFINE REGION 112 


< ’ 

REG3DI 112, SBLD+503 . SBLD+480 . SBLD+506 , SBLD+507 . SBLD+508 . SBLD+408 , & 
LBLD+4 30 . LBLD+437 , LBLD+4 31 , LBLD+426 , LBLD+540 . LBLD+547 , 6c 
LBLD+54 1 . LBLD+536 . LBLD+535 , LBLD+546 . LBLD+548 . LBLD+537 . 6c 
BLAD+ 1 83 . BLAD+ 1 84 . BLAD+ 1 87 , BLAD+ 1 88 , BLAD+225 . BLAD+226 . 6c 
BLAD+229 . BLAD+230 ) 


< * 

(* DEFINE REGION 113 

<• 

REG3D( 113, SBLD+506 , SBLD+509 , SBLD+510 . SBLD+51 1 . SBLD+512 .SBLD+412 . 6c 
LBLD+44 1 , LBLD+448 . LBLD+442 , LBLD+437 . LBLD+551 . LBLD+558 . 6c 
LBLD+552 , LBLD+547 , LBLD+546 . LBLD+557 . LBLD+559 . LBLD+548 . 6c 
BLAD+ 1 87 , BLAD+ 1 88 , BLAD+ 191, BLAD+ 1 92 . BLAD+229 . BLAD+230 , 6c 
BLAD+233 . BLAD+234 ) 


< ’ 


( ’ DEFINE REGION 1 14 


( * 

REG3DI 1 1 4 . SBLD+5 1 0 . SBLD+484 . SBLD+5 1 3 . SBLD+5 14 . SBLD+5 1 5 . SBLD+4 15. 6c 
LBLD+452 . LBLD+459 . LBLD+453 . LBLD+448 . LBLD+562 . LBLD+568 . 6c 
LBLD+563 . LBLD+558 . LBLD+557 . LBLD+567 . LBLD+569 . LBLD+559 . & 
BLAD-f 191, BLAD+ 1 92 . BLAD+ 1 95 . BLAD+ 1 96 . BLAD+233 , BLAD+234 . 6c 
Bl.AD+237 .BLAD+238 ) 

{ ’ 

( ’ DEFINE REGION 115 

( » 


REG3D( 115. SBLD+5 1 3 , SBLD+5 1 6 , SBLD+5 1 7 . SBLD+5 1 8 , SBLD+5 1 9 , SBLD+4 19, 6c 
LBLD+463 , LBLD+4 6 9 , LBLD+464 , LBLD+459 . LBLD+572 . LBLD+578 . & 
LBLD+573 , LBLD+568 , LBLD+567 , LBLD+575 . LBLD+580 , LBLD+569 . & 
BLAD+ 1 95 . BLAD+ 1 96 . BLAD+ 1 99 , BLAD+200 . BLAD+237 . BLAD+238 . 6c 
BLAD+240 , BLAD+242 ) 

<’ 

(* DEFINE REGION 116 

<’ 


REG 3D ( 116, SBLD+468 , SBLD+5 1 7 , SBLD+520 . SBLD+52 1 . SBLD+522 . SBLD+422 . 6c 
LBLD+466 , LBLD+47 1 , LBLD+4 6 9 , LBLD+8 1 5 . LBLD+577 , LBLD+58 1 , & 
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LBLD+078 . LBLD+576 . LBLD+574 . LBLD-*-07 j . LBLD+579 . LBLD+580 & 
BLAD+ 1 98 BLAD+1 99 . BLAD+200 . BLAIM 1 97 BLAD+239 . BLAD+240 <S‘ 
BLAD+24 1 . B LAD- 242 > 

DEFINE REGION 117 

REG 3D( 117 SBLD+52 1 . SBLD+523 . SBLD+524 . SBLD+525 . SBLD+526 . SBLD+425 A: 
LBLD+47 1 . LBLD+472 . LBLD+476 . LBLD+473 . LBLD+582 . LBLD+586 & 
LBLD+583 , LBLD+58 1 . LBLD+579 , LBLD+584 . LBLD+585 . LBLD+580 . & 
BLAD+ 197. BLAD+200. BLAD+20 1 .BLAD+202 .BLAD+241 .BLAD+242. & 
BLAD+243 , BLAD+244 ) 



<• DEFINE THE PLATFORM 

( * 

( * *<'">*, *• '><„ >< '>< '■« ‘ »«• ■' *• >«.' x >. V .»*. »*' .. .. 

( * .*<■ »«. " .*■ >•. -»* .»• ’ *« _ »• <■ .•» »• •» >. •• V. /. ,% _ •«. M .« .. /. 

( * 

( * 

WOVRHANG= ( PWI DTH- ( DTH ICK6*2) )/2 
LOVRHANG= ( PLENGTH-STH I CK ) /2 
BXVAL=-DTH I CK6-WOVRHANG+FRTSHFT 
FXVAL= DTH I CK6+W0VRHANG+FRTSHFT 
PLAT=0 

(’ 

(* DEFINE POINTS ON PLATFORM BOTTOM 

(* 

POINT (PLAT+65, BXVAL, ( -LOVRHANG+S I DSHFT ), DRAD I US6) 

POINT (PLAT+66, ( -DTH I CK6+WTH I CK ) , ( 2* (-LOVRHANG+SIDSHFT) ) ,/3 , DRADIUS6 ) 
POINT ( PLAT+67 , ( DTH I CK6-irrH I CK ) , ( 2 * ( -LOVRHANG+S I DSHFT ) ) /3 , DRAD IUS6 ) 
POINT ( PLAT+68 , FXVAL , ( -LOVRHANG+S I DSHFT ), DRADIUS6 ) 

POINT (PLAT+69 , -DTHICK2 , ( -LOVRHANG+S I DSHFT ) /3 . DRAD I US 6 ) 

POINT (PLAT+70 .DTH1CK2 . ( -LOVRHANG+S 1 DSHFT )/3 .DRADIUS6) 

< T 


YCORD=0 

POINT < PUT+7 1 . BXVAL . YCORD , DRAD I US6 ) 
POINT ( PLAT+72 , FXVAL , YCORD . DRADIUS6 ) 

( • 

YCORD=YCORD+RTH I CK 

’ POINT (PLAT+73. BXVAL. YCORD. DRADIUS6) 
POINT < PLAT+74 . FXVAL , YCORD . DRAD IUS6) 

< * 

YCORD=YCORD+HOLE 

POINT (PLAT+75 .BXVAL, YCORD, DRAD I US6) 
POINT ( PLAT+76 , FXVAL , YCORD . DRAD I US6 ) 

( * 

YCORD=YCORD+RTHI CK 

POINT ( PLAT+77 , BXVAL , YCORD , DRAD I US6 ) 
POINT ( PLAT+78 , FXVAL , YCORD , DRAD I US6 ) 

( * 

Y CORD= Y C ORD+HO LE 

POINT ( PLAT+79 , BXVAL . YCORD . DRAD1US6 ) 
POINT ( PLAT+80 , FXVAL , YCORD . DRAD1US6 ) 

<’ 

YCORD=YCORD+RTH I CK 

POINT (PLAT+81 , BXVAL, YCORD, DRAD 1US6) 
POINT (PLAT+82, FXVAL, YCORD, DRADIUS6) 

<’ 

YCORD=YCORD+HOLE 

POINT (PLAT+83, BXVAL. YCORD. DRAD I US6) 
POINT ( PLAT+84 , FXVAL . YCORD . DRaD IUS6) ’ 

<* 
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YCORD=YC ORD+ RTH 1 C K 

POINT < PLAT+85 .BXVAL.YCORD DRADIUS6 > 

POINT (PLAT+80 FXVAL . YCORD . DRADM ': V C» 1 

( ' 

YTEMP= LOVRHANG+S 1 DSHFT 

POINT ( PLAT+87 . BXVAL . ( STH I CK+LOVRHANU+S I DSHFT > DKADIUSO 
POINT ( PLAT+88 , -DTH 1 CK6+WTH I CK , YCORD+ ( YTEMP :? * I»RAl)IU?6» 

POINT ( PLAT+89 . 0 . YCORD+ ( YTEMP/ 3 ) .DRADIUSH) 

r POINT < PLAT+90 . ( ( 2 * DTH1 CK6-WTHI CK )/ 2 ) . YCORD+ ( YTEMP /3 ) . DRAD I US6 ) 

POINT (PLAT+91 ,DTHICK6.YCORD+(YTEMP/2) ,DRAD1US6> 

POINT ( PLAT+92 , FXVAL . YCORD+ ( YTEMP/2 ) , DRAD I US6 ) 

POINT (PLAT+93 .DTHICK6 ,YCORD+(7*YTEMP/8) . DRADIUS6) 

POINT (PLAT+94 , ( (2*DTHICK6 )+WOVRHANG+FRTSHFT)/2 . YCORD+I 5*YTEMP/8> , & 
DRAD I US 6) 

POINT (PLAT+95 . FXVAL. YCORD+I 3 ’YTEMP/ 4 ) , DRADIUS6) 

POINT (PLAT+96 , FXVAL , ( STHICK+LOVRHANG+SIDSHFT) .DRADIUS6) 

( * 

DEFINE POINTS ON PLATFORM TOP 

( * 

PRINT INPUT THE CAMBER ANGLE OF THE AIRFOIL IN DEGREES 
( * READ CAMBER 
CAMBER=65 

PRINT INPUT THE MAXIMUM THICKNESS DIVIDED BY THE CHORD LENGTH 
(* READ THCKCH 
THCKCH=0 9 

(* 

RADCAM=RAD I AN ( CAMBER ) 

( * 

PRINT INPUT THE X AND Y POSITION OF THE TIP OF THE LEADING EDGE 
( * READ XLED1 , YLED1 
XLED1=1 75 
YLEDl=-2 

( * 

PRINT INPUT THE X AND Y POSITION OF THE TIP OF THE TRAILING EDGE 
<* READ XTED1.YTED1 
XTED1=1 75 
YTED1=10 5 

< • 

XK=XLED 1 
YK=YLED1 
XM=XTED 1 
YM=YTED 1 

( * 

PRINT INPUT THE RADIUS OF THE ARC 
(* READ CARC1 
CARC1=1 1 
RK=CARC 1 

CHORD=2 ’( S I N ( R ADC AM,/ 2 ) * CARC 1 ) 

TH1 CK=CHORD’ THCKCH 

(* 

CNTR-PT 

XCENTER=XL 


IUS8 ) 
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Y('ENTER=YL 


( • 

1 NNER=XCENTER- < TH 1 n; ;> > 

Xol'TER- XCENTER' ( TH ] <1 1 i 

( • 

t* NOW DEFINE THE PARAMETERS FOR THE COOLING PASSAGE CURVES 
< * 

PRINT INPUT THE X AND V POSITION OF THE TIP OK THE LEADING EDGE CAVITY 
<* READ CXLED . CYLED 
CXLED=0 75 
CYLED=0 0 

PRINT INPUT THE X AND Y POSITION OF THE TIP OF THE TRAILING EDGE 
PRINT CAVITY 
(* READ CXTED , CYTED 
CXTED= . 75 
CYTED=9 0 

(* 

XK=CXLED 

YK=CYLED 

XM=CXTED 

YM=CYTED 

<• 

PRINT INPUT THE RADIUS OF THE ARC OF THE CAVITY 
(* READ CARC2 
CARC2=9 . 5 
RK=CARC2 

SMCHRD=2 * ( S I N ( RADCAM/2 ) *CARC2 ) 

<’ 

CNTR-PT 

CXCNTR=XL 

CYCNTR=YL 

(’ 

SMTHCK= 5 ’THICK 
CXINER=CXCNTR-! SMTHCK/2 ) 

CXOTER=CXCNTR+( SMTHCK/2 ) 

( * 

YCORD=0 

ZVAL=DRAD I US6+PTH I CK 

< * 

POINT! 80 1 . XLED1 Y LED 1 ,ZVAL) 

POINT! 802 .XTED1 YTED1 .ZVAL) 

POINT ( 803 . CXLED . CYLED . ZVAL) 

POINT! 804. CXTED CYTED. ZVAL) 

PO I NT ! 805 , X 1 NNER . YCENTER . ZVAL ) 

POINT! 806 . XOUTER . YCENTER . ZVAL) 

PO I NT ( 807 . CX I NER . CYCNTR , ZVAL ) 

POINT! 808 . CXOTER . CYCNTR , ZVAL) 

<* 

ARC (900, 806, 801 .802) 

ARC( 901 ,805.801 ,802) 

ARC( 902 • 808 , 803 , 804 ) 

ARC! 903 , 807 , 803 . 804 ) 

C 
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( • GET THE RIB POSITIONS FROM THE USER 

PRINT INPUT THE FIRST RIB PUS 1 T I ON THE VALUE SHOULD BE BETWEEN 
F’RINT 0 AND 1 U) = LEADING EIXiE 1 - TRAILING EDGE i 
» • READ POS 1 
POSl= IS 

PRINT INPUT THE END POSITION OF THE FIRST RIB. TO DETERMINE THE 
PRINT RIB THICKNESS 
< ’READ WPOS1 
WPOSl= 19 

( PRINT INPUT THE SECOND RIB POSITION (BETWEEN 0 AND 1 > 

( ’READ POS 2 
POS2= . 30 

WPOS2=POS2+ ( WPOS 1 —POS 1 ) 

PRINT INPUT THE THIRD RIB POSITION (BETWEEN 0 AND 1 ) 

( *READ POS 3 
POS3= . 50 

WPOS 3=POS 3+ ( WPOS 1 -POS 1 ) 

( * 

PRINT INPUT THE FOURTH RIB POSITION (BETWEEN 0 AND 1) 

(’READ POS 4 
P0S4= 70 

WPOS4=POS4+ ( WPOS 1 -POS 1 > 

( * 

POINT (PLAT+97 .BXVAL, < -LOVRHANG+SIDSHFT) .ZVAL) 

PARMCRV ( PLAT+98 .901. 05 ) 

PARMCRV ( PLAT+99 900 . 05 ) 

POINT ( PLAT+1 00. FXVAL. (-LOVRHANG+SIDSHFT) .ZVAL) 

POINT (PLAT+ 101 BXVAL. YCORD. ZVAL) 

PARMCRV (PLAT+102 . 901 , (POS1+ 05) ) 

PARMCRV (PLAT+103 .903 . 05) 

PARMCRV ( PLAT+ 1 04 . 902 , 05 ) 

PARMCRV ( PLAT+ 1 05 , 903 . POS 1 ) 

PARMCRV ( PLAT+ 1 06.902. POS 1 ) 

PARMCRV (PLAT+107 .900. (POS1+ 05)) 

POINT < PLAT+ 1 08 . FXVAL .YCORD , ZVAL) 

( • 

YCORD=Y CORD+ RTH I CK 

POINT ( PLAT+ 1 09 BXVAL . YCORD . ZVAL ) 

PARMCRV ( PLAT-*- 1 1 0 901 . (WPOS1+ 05)) 

PARMCRV ( PLAT+ 111.903. WPOS 1 ) 

PARMCRV ( PLAT+ 112. 902 . WPOS 1 ) 

PARMCRV (PLAT+1 13 .900 . (WPOS1+ 05) ) 

POINT (PLAT+1 14 . FXVAL. YCORD, ZVAL) 

<* 

YCORD=YCORD+HOLE 

POINT ( PLAT+ 115. BXVAL , YCORD . ZVAL ) 

PARMCRV (PLAT+1 16. 901 , (POS2+. 05)) 

PARMCRV ( PLAT+1 17, 903. POS2) 

PARMCRV (PLAT+1 18 .902 .POS2) 
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•PARMCRV < PLAT+ 11'.*. 900 ( POS2+ 05 ) ) 

POINT ( PLAT+ 1 20 . FXVAL . VCORI) . ZVAL ) 

< * 

YCORb= Y< OKI.m-RTH 1 < T. 

POINT < PLAT + 121 .BXVAL.YCORD.ZVAL> 

PARMCRV (PLAT+1 22 .901 . (WPOS2+ 05)) 

PARMCRV < PLAT+ 1 23 903 . WPOS2 ) 

PARMCRV < PLAT+ 1 24 . 902 . WPOS2 ) 

PARMCRV ( PLAT+ 1 25 . 900 , ( WPOS2+ . 05 ) ) 

POINT (PLAT+126 , FXVAL , YCORD , ZVAL) 

(’ 

YCORD=YCORD+HOLE 

POINT (PLAT+1 27. BXVAL, YCORD. ZVAL) 

PARMCRV ( PLAT+1 28. 90 1 ,POS3) 

PARMCRV ( PLAT+ 129.903, POS3 ) 

PARMCRV ( PLAT+1 30. 902. POS3) 

PARMCRV (PLAT+131 .900.POS3) 

POINT (PLAT+1 32. FXVAL. YCORD. ZVAL) 

<* 

YCORD=YCORD+RTH I CK 

POINT (PLAT+1 33, BXVAL. YCORD, ZVAL) 

PAI»«CRV (PLAT+1 34 , 901 .WPOS3+. 03) 

PARMCRV ( PLAT+1 35. 903, WPOS3) 

PARMCRV ( PLAT+1 36. 902. WPOS3) 

PARMCRV ( PLAT+1 37. 900. WPOS3+. 03) 

POINT (PLAT+1 38. FXVAL. YCORD, ZVAL) 

( • 

YCORD=YCORD+HO LE 

POINT (PLAT+1 39, BXVAL, YCORD. ZVAL) 

PARMCRV ( PLAT+1 40. 901 . (POS4-. 05)) 

PARMCRV < PLAT+ 141.903, POS4 ) 

PARMCRV ( PLAT+1 42. 902, POS4) 

PARMCRV (PLAT+1 43. 900, (POS4-.05)) 

POINT (PLAT+144, FXVAL. YCORD. ZVAL) 

C 

YCORD=YCORD+RTH I CK 

POINT (PLAT+1 45 .BXVAL YCORD. ZVAL) 

PARMCRV ( PLAT+ 1 46 . 90 1 . ( WPOS4- 05 ) ) 

PARMCRV ( PLAT+ 147. 903 . WPOS4 ) 

PAIttCRV (PLAT+148 902.WPOS4) 

PARMCRV (PLAT+1 49 . 900 (WPOS4-.05)) 

( * 

POINT (PLAT+1 50 .FXVAL YCORD. ZVAL) 

POINT (PLAT+151 . BXV A L STH I CK+ LOVRHANG+S I DSHFT . ZVAL ) 
PARMCRV ( PLAT+ 1 52 . 90 1 . 90 ) 

PARMCRV (PLAT+1 53. 903. 90) 

PARMCRV ( PLAT+ 1 54 . 902 90 ) 

PARMCRV ( PLAT+ 1 55 , 900 . 90 ) 

POINT ( PLAT+ 156, FXVAL. YCORD+ ( YTEMP/2 ) .ZVAL) 

PARMCRV ( PLAT+ 157,901.97) 

PARMCRV ( PLAT+ 158. 900 . 97 ) 

POINT ( PLAT+1 59. FXVAL, YCORD+( 3 ’YTEMP/4) .ZVAL) 

POINT (PLAT+1 60. FXVAL, ( STH I CK+ LOVRHANG+S 1 DSHFT ) .ZVAL) 



t • CONSTRUCT TEMPORARY POINTS NEEDED TO DEFINE CURVES 
( • 

PAKMCRV < 000 . 900 . ( POS 1 2 > * 

PAKMCRV < yo 1 . 900 . ( POS 1 +WPOS 1+1)2) 

PAKMCRV (902.900. (WPOS1+POS2+ l)/2> 

PARMCRV ( 903 . 900 . ( POS2+WPOS2+ 1 ) -2 ) 

PAKMCRV (904 .900 . (WPOS2+POS3+ 05). 2 ) 

PARMCRV ( 905 . 900 . ( POS3+WPOS3 ) '2 ) 

PARMCRV ( 906 , 900 , ( WPOS3+POS4- 05 ) /2 ) 

PARMCRV (907.900 . (POS4+WPOS4- . 1 )/'2) 

PARMCRV (908,900, (WP0S4+ . 90) /2 ) 

PARMCRV ( 909 . 900 . 935 ) 

< ’ 

PARMCRV (910.902. (P0S1/2) ) 

PARMCRV (911 ,902. (POS1+WPOS1 )/2) 

PARMCRV (912 , 902 , (WPOSl+POS2)/2) 

PARMCRV (913. 902 . < POS2+WPOS2 ) /2 ) 

PARMCRV (914.902. (WPOS2+POS3)/2) 

PARMCRV (915.902. (POS3+WPOS3)/2) 

PARMCRV (916 . 902 . ( WPOS3+POS4 )/2) 

PARMCRV (917,902, (P0S4+WP0S4)/2) 

PARMCRV (918 .902 . (WP0S4+ . 97)/2) 

< * 

PARMCRV (919. 903 . ( POS 1/2)) 

PARMCRV (920 . 903 . (POS1+WPOS1 )/2) 

PARMCRV (921 . 903 , (WPOSl+POS2)/2) 

PARMCRV (922.903. ( POS2+WPOS2 )/2) 

PARMCRV (923 .903, (WPOS2+POS3)/2) 

PARMCRV ( 924 . 903 , ( POS3+WPOS3 ) /2 ) 

PARMCRV (925,903, ( WP0S3+P0S4 )/2 ) 

PARMCRV ( 926 . 903 . ( P0S4+WP0S4 )/2 ) 

PARMCRV (927.903, (WPOS4+ 97 )/2) 

< * 

PARMCRV < 928 .901 . (POS 1/2) > 

PARMCRV (929.901 . (POS1+WPOS1+ 1 )/2) 

PARMCRV (930.901 . (WPOS1+POS2+ 1 )/ 2) 

PARMCRV ( 93 1 . 90 1 . < POS2+WPOS2+ 1 ) /2 > 

PARMCRV < 932 . 90 1 . ( WPOS2+POS3+ 05 ) ,/2 ) 

PARMCRV ( 933 . 90 1 . ( POS3+WPOS3 ) /2 ) 

PARMCRV < 934 . 90 1 . ( WPOS3+POS4- 05 ) , 2 ) 

PARMCRV ( 935 . 90 1 , ( POS4+WPOS4- 1 ) /2 ) 

PARMCRV ( 936 ,901, (WPOS4+ 90 ) ,/2 ) 

PARMCRV ( 937 ,901. 935 ) 

r 

C 

( 

C 

(. - PLATFORM CURVE DEFINITIONS - 

DEFINE ESMOSS CURVES 



( 

C 


278 



DEFINE CURVES ON PLATFORM BOTTOM 


< ’ 
i • 

LINE i PLAT- 1 jT . PLAT+ 65 . PLAT +68 > 
LINE t PLAT -t 1 38 PLAT +65 PLAT-rfifi ) 
LINE ( PLAT-* 1 39 . PLAT +66 , PLAT +67 > 

( ’ 

LINE IPLAT+ 140. PLAT+67. PLAT+68) 
LINE ( PLAT+ 141 .PLAT+65 PLAT+71 ) 
LINE (PLAT+ 142. PLAT+66. PLAT+4) 
LINE ( PLAT+143 . PLAT+69 , PLAT+34 ) 
LINE (PLAT+ 144. PLAT+66. PLAT+69) 
LINE (PLAT+ 145, PLAT+69, PLAT+70) 
LINE (PLAT+ 146. PLAT+70. PLAT+36) 
LINE (PLAT+ 147. PLAT+67. PLAT+70) 
LINE (PLAT+ 148. PLAT+67. PLAT+2) 
LINE (PLAT+ 149. PLAT+68. PLAT+72) 

(* 

LINE (PLAT+ 150. PLAT+71 .PLAT+4) 
LINE (PLAT+151 .PLAT+71 .PLAT+73) 
LINE (PLAT+ 152. PLAT+73. PLAT+8) 
LINE (PLAT+ 153, PLAT+2 .PLAT+72) 
LINE (PLAT+154 .PLAT+6 .PLAT+74) 
LINE (PUT+ 155, PLAT+72, PLAT+74) 
LINE (PLAT+ 156. PLAT+73. PLAT+75) 
LINE (PLAT+157, PLAT+75 PLAT+ 12) 
LINE < PLAT+ 1 58 . PLAT+ 1 0 , PLAT+76 ) 
LINE (PLAT+ 159, PLAT+74. PLAT+76) 
C 

LINE (PLAT+ 160, PLAT+75. PLAT+77) 
LINE ( PLAT+ 161, PLAT+77 . PLAT+ 1 6 ) 
LINE (PLAT+162 .PLAT+14 .PLAT+78) 
LINE (PLAT+ 163. PLAT+76, PLAT+78) 
LINE (PLAT+ 164, PLAT+77. PLAT+79) 
LINE (PLAT+ 165, PLAT+79. PLAT+20) 
LINE ( PLAT+166 . PLAT+18 , PLAT+80 ) 
LINE (PLAT+ 167, PLAT+78, PLAT+80) 
LINE ( PLAT+ 168, PLAT+79. PLAT+8 1 ) 
LINE < PLAT+169 , PLAT+8 1 . PLAT+24 ) 

< • 

LINE ( PLAT+ 170 . PLAT+22 , PLAT+82 ) 
LINE (PLAT+171 .PLAT+80. PLAT+82) 
LINE < PLAT+ 172. PLAT+8 1 .PLAT+83) 
LINE (PLAT+ 173. PLAT+83. PUT+28) 
LINE (PLAT+174 .PLAT+26 PLAT+84) 
LINE (PLAT+ 175. PLAT+82. PLAT+84) 
LINE (PLAT+ 176, PLAT+83, PLAT+85) 
LINE (PLAT+ 177, PLAT+85, PLAT+32) 
LINE (PLAT+178 , PLAT+30 , PLAT+86 ) 
LINE (PLAT+ 179, PLAT+84, PLAT+86) 

C 

LINE (PLAT+ 180, PLAT+85. PLAT+87) 
LINE (PLAT+181 .PLAT+87. PLAT+88) 
LINE (PLAT+ 182, PLAT+32, PLAT+88) 
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LINE 4 PLAT+ I 83 . PLAT+HO .PLAT+88 > 

LINE < PLAT- 184 PLAT+62 PLAT+89 ) 

LINE i PLAT- 1 - 1 85 . PLAT* 89 PLAT+94) I 
LINE 4 PLAT* 1 H(> PLAT-04 . PLAT+90 ) 

LINE ( PLAT+1 87 .PLAT+90 .PLAT+91 ) 

LINE 4 PLAT+ 1 88 . PLAT +30 . PLAT+9 1 ) 

LINE 4 PLAT+ 189 PLAT+91 PLAT+92) 

LINE (PLAT+190 .PLAT+86 .PLAT+92) 

LINE ( PLAT+19 1 .PLAT+88 .PLAT+91 ) 

LINE (PLAT+ 192. PLAT+88. PLAT+93) 

LINE (PLAT+193 . PLAT+8? .PLAT+96 ) 

LINE ( PLAT+ 194 .PLAT+91 .PLAT+94 ) 

LINE < PLAT+ 195 .PLAT+94 .PLAT+95) 

LINE (PLAT+ 196. PLAT+92. PLAT+95) 

LINE (PLAT+ 197. PLAT+93. PLAT+96) 

LINE ( PLAT+1 98 .PLAT+95 , PLAT+96 ) 

LINE ( PLAT+1 99 .PLAT+93 .PLAT+94 ) 

* 

* DEFINE CURVES ON PLATFORM TOP AND CONNECTION LINES TO BOTTOM 

* 

LINE (PLAT+200.PLAT+97, PLAT+1 00) 

LINE ( PLAT+20 1 , PLAT+65 , PLAT+97 ) 

LINE (PLAT+202. PLAT+97. PLAT+98) 

LINE (PLAT+203. PLAT+98. PLAT+99) 

LINE < PLAT+204 . PLAT+66 . PLAT+98) 

LINE (PLAT+205.PLAT+67 .PLAT+99) 

LINE (PLAT+206 .PLAT+99 .PLAT+1 00) 

LINE (PLAT+207 .PLAT+68 .PLAT+1 00) 

LINE ( PLAT+208. PLAT+97 .PLAT+101 ) 

LINE (PLAT+209.PLAT+71 .PLAT+101) 

[ * 

LINE (PLAT+210 .PLAT+101 PLAT+102) 

LINE (PLAT+21 1 .PLAT+4 .PLAT+102) 

ARCCF(PLAT+2 12 .PLAT+98 .PLAT+102 .928) 

LINE ( PLAT+21 3. PLAT+34 .PLAT+1 05) 

LINE < PLAT+2 14 .PLAT+1 03, PLAT+1 05) 

LINE (PLAT+2 15. PLAT+98. PLAT+1 03) 

LINE ( PLAT+21 6. PLAT+69. PLAT+1 03) 

LINE ( PLAT+21 7, PLAT+70, PLAT+1 04) 

LINE (PLAT+2 18, PLAT+99. PLAT+1 04) 

LINE (PLAT+2 19. PLAT+1 04, PLAT+1 06) 

C 

LINE ( PLAT+220 , PLAT+36 .PLAT+1 06) 

ARCCF(PLAT+221 .PLAT+99, PLAT+1 07 ,900) 

LINE (PLAT+222, PLAT+1 00. PLAT+1 08) 

LINE ( PLAT+223 , PLAT+2 .PLAT+107) 

LINE (PLAT+224. PLAT+1 07. PLAT+1 08) 

LINE (PLAT+225.PLAT+72. PLAT+1 08) 

LINE (PLAT+226.PLAT+73. PLAT+1 09) 

LINE (PLAT+227 , PLAT+1 09 . PLAT+1 10) 

LINE (PLAT+228. PLAT+8. PLAT+1 10) 

LINE (PLAT+229 .PLAT+38 .PLAT+1 1 1 ) 
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LINE ( f'LAT-i .'.'id I'LAT-f 111, PLAT-* 1 13 ) 

LINE (PLAT-331 . PLAT-MO . PLAT+ 1 1 3 > 

LINE ( I'LAT-333 . PLAT+fi PLAT+ 1 1 3 ) 

LINE ( PLAT+333 . PLAT-* 113 PLAT+ 114) 

LINE (PLAT+234 PLAT+74 .PLAT+114) 

LINE <PLAT*23 r >. PLAT+1 01 PLAT+1 091 
LINE ( PLAT+230 . PLAT+ 1 03 . PLAT+ 1101 
LINE ( PLAT+23T . PLAT+ 1 05 , PLAT+ 111) 

LINE (PLAT+238 .PLAT+106 .PLAT+1 12 ) 

LINE (PLAT+239.PLAT+ 107, PLAT+1 13) 

LINE (PLAT+240. PLAT+1 08. PLAT+1 14) 

LINE (PLAT+241 .PLAT+1 09. PLAT+1 15) 
ARCCF( PLAT+242 , PLAT+ 110. PLAT+ 116. 930 ) 
ARCCFI PLAT+24 3 .PLAT+1 1 1 .PLAT+1 17 , 921 ) 
ARCCF ( PLAT+244 . PLAT+ 112, PLAT+ 118,912) 
ARCCF ( PLAT+245 , PLAT+ 113. PLAT+ 119.902) 
LINE (PLAT+246, PLAT+1 14 .PLAT+120) 

LINE ( PLAT+247 , PLAT+75 . PLAT+ 115) 

LINE ( PLAT+248 , PLAT+ 1 2 . PLAT+ 116) 

LINE (PLAT+249 , PLAT+1 1 5 , PLAT+1 1 6 ) 

LINE (PLAT+250, PLAT+1 16, PLAT+1 17) 

LINE (PLAT+251 .PLAT+42 .PLAT+1 17) 

LINE (PLAT+252. PLAT+1 17. PLAT+1 18) 

LINE (PLAT+253.PLAT+44. PLAT+1 18) 

LINE ( PLAT+254 . PLAT+ 118, PLAT+ 119) 

LINE (PLAT+255.PLAT+ 10. PLAT+1 19) 

LINE (PLAT+256 .PLAT+1 19, PLAT+1 20) 

LINE (PLAT+257.PLAT+76, PLAT+1 20) 

LINE (PLAT+258, PLAT+1 1 5. PLAT+ 121) 

LINE (PLAT+259. PLAT+1 16. PLAT+1 22) 

LINE < PLAT+260 . PLAT+ 117. PLAT+ 123) 

LINE (PLAT+261 , PLAT+1 18. PLAT+1 24) 

LINE (PLAT+262, PLAT+1 19. PLAT+1 25) 

LINE (PLAT+263, PLAT+1 20, PLAT+1 26) 

LINE ( PLAT+264 , PLAT+77 .PLAT+121) 

LINE <PLAT+265, PLAT+1 21 .PLAT+1 22) 

LINE (PLAT+266 .PLAT+1 6 .PLAT+122) 

LINE (PLAT+267, PLAT+1 22, PLAT+1 23) 

LINE (PLAT+268 .PLAT+46 .PLAT+1 23) 

LINE (PLAT+269. PLAT+1 23. PLAT+1 24) 

► 

LINE (PLAT+270 . PLAT+48 .PLAT+1 24) 

LINE (PLAT+271 .PLAT+1 24 .PLAT+1 25) 

LINE (PLAT+272, PLAT+1 4 .PLAT+1 25) 

LINE (PLAT+273, PLAT+1 25. PLAT+1 26) 

LINE (PLAT+274 .PLAT+78 .PLAT+1 26) 

LINE ( PLAT+275. PLAT+1 21 .PLAT+127) 
ARCCF (PLAT+276 , PLAT+ 1 22 . PLAT+ 128, 932 ) 
ARCCF ( PLAT+277 . PLAT+ 123. PLAT+ 129. 923 ) 
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ARCCF ( PLAT+278 . PLAT+ 1 24 . PLAT+ 1 30 014 » 
ARCCF < PLAT+279 . PLAT+ 1 25 .PLAT+1 31 .904 > 

LINE < PLAT+280 . PLAT+ 1 26 ■ PLAT+ 1 32 ) 

LINE ( PLAT+281 .PLAT+79 PLAT+1 271 
LINE ( PLAT+282 . PLAT+ 1 27 . PLAT+ 1 28 ) 

LINE ( PLAT+283 . PLAT 4 20 PLAT+1 28) 

LINE < PLAT+284 . PLAT+ 1 28 . PLAT+ 1 29 > 

LINE (PLAT+285 .PLAT+50 .PLAT+129) 

LINE (PLAT+286. PLAT+1 29. PLAT+1 30) 

LINE ( PLAT+287 , PLAT+52 .PLAT+130) 

LINE (PLAT+288 .PLAT+130 .PLAT+131 ) 

LINE (PLAT+289. PLAT+1 8 .PLAT+131) 

* 

LINE (PLAT+290 .PLAT+131 .PLAT+132 ) 

LINE (PLAT+291 .PLAT+80 .PLAT+132) 

LINE (PLAT+292. PLAT+1 27. PLAT+1 33) 

LINE (PLAT+293. PLAT+1 28. PLAT+1 34) 

LINE (PLAT+294 .PLAT+129 PLAT+1 35) 

LINE (PLAT+295. PLAT+1 30. PLAT+1 36) 

LINE (PLAT+296 .PLAT+131 .PLAT+1 37) 

LINE (PLAT+297. PLAT+1 32. PLAT+1 38) 

LINE ( PLAT+298 . PLAT+8 1 .PLAT+1 33) 

LINE (PLAT+299 .PLAT+1 33 .PLAT+1 34) 

' * 

LINE ( PLAT+300 . PLAT+24 .PLAT+1 34) 

LINE (PLAT+301 .PLAT+1 34 .PLAT+1 35) 

LINE ( PLAT+302 . PLAT+54 .PLAT+1 35) 

LINE (PLAT+303. PLAT+1 35. PLAT+1 36) 

LINE ( PLAT+304 . PLAT+56 .PLAT+1 36) 

LINE (PLAT+305. PLAT+1 36. PLAT+1 37) 

LINE ( PLAT+306 . PLAT+22 , PLAT+1 37) 

LINE (PLAT+307. PLAT+1 37, PLAT+1 38) 

LINE ( PLAT+308 , PLAT+82 .PLAT+1 38) 

LINE (PLAT+309, PLAT+1 33 .PLAT+1 39) 

(* 

ARCCFI PLAT+310 . PLAT+1 34 . PLAT+1 40 , 934 ) 
ARCCF ( PLAT+3 1 1 , PLAT+ 1 35 , PLAT+ 141.925) 
ARCCF ( PLAT+3 1 2 . PLAT+ 1 36 . PLAT+ 142.916) 
ARCCF < PLAT+3 1 3 . PLAT+ 1 37 . PLAT+ 143,906) 
LINE (PLAT+3 14. PLAT+1 38. PLAT+1 44) 

LINE ( PLAT+3 1 5 , PLAT+83 .PLAT+1 39) 

LINE ( PLAT+3 1 6. PUT+ 139. PLAT+1 40) 

LINE ( PLAT+3 17 .PLAT+28 .PLAT+1 40) 
LINE ( PLAT+3 1 8. PLAT+ 140. PLAT+ 141) 
LINE ( PLAT+3 1 9. PLAT+58 .PLAT+141) 

<* 

LINE (PLAT+320. PLAT+141 .PLAT+142) 
LINE (PLAT+321 .PLAT+60 .PLAT+142) 
LINE (PLAT+322, PLAT+1 42. PLAT+1 43) 
LINE (PLAT+323 , PLAT+26 .PLAT+143) 
LINE (PLAT+324 .PLAT+143 , PLAT+1 44) 
LINE ( PLAT+325 . PLAT+84 .PLAT+1 44) 
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LINE (PUT-326 .PLAT-66 PLAT- 145 i 
LINE < PLAT-327. PLAT- 1 45 . PLAT- 140 ) 

LINE ( PLAT- 328 PLAT- 32 PLAT- ) 40 t 
LINE ( PLAT-329 . PLAT- 1 40 PLAT- 1 47 ( 

< ‘ 

LINE ( PLAT-330 . PLAT-62 .PLAT+147) 

LINE (PLAT-331 PLAT- 147 PLAT+148) 

LINE < PUT-332 . PUT+64 PLAT+148) 

LINE < PLAT-333. PLAT- 14 8. PLAT- 149) 

LINE < PLAT-334. PLAT+30 .PLAT+149) 

LINE (PLAT+335. PLAT- 149. PLAT- 150) 

LINE (PLAT-336 PLAT+86 .PLAT+150) 

LINE (PLAT-337 .PLAT- 145. PLAT+151 ) 

ARCCF( PLAT-338 . PLAT- 1 46 . PLAT+ 1 52 . 936 ) 

ARCCF( PLAT-339 . PLAT- 147, PLAT+ 1 53 , 927 ) 

( * 

ARCCF ( PLAT+340 . PLAT- 148, PLAT- 154.918) 

ARCCF ( PLAT+34 1 . PLAT- 149. PLAT- 155,908) 

LINE (PLAT+342, PLAT- 150, PLAT- 156) 

LINE (PUT-343. PLAT+151 .PLAT- 152) 

LINE (PUT— 344 , PUT— 88 .PUT+152) 

LINE (PUT+345 .PUT+153 .PUT+152) 

LINE (PUT-346. PUT+89 .PUT+153) 

LINE ( PUT-347. PLAT+90 .PUT- 154) 

LINE (PUT-348. PLAT- 153, PLAT- 154) 

LINE (PUT+349 , PUT- 154 . PUT— 155 ) 

( ’ 

LINE ( PUT— 350 . PLAT+9 1 .PUT+155) 

LINE (PLAT+351 .PLAT- 152. PLAT- 155) 

LINE ( PLAT+352 . PUT- 155. PUT- 1 56 ) 

LINE (PUT+353 .PLAT+92 .PUT- 156) 

ARCCF ( PLAT+354 . PLAT- 152. PUT- 1 57 . 937 ) 

LINE (PUT-355 PLAT+151 .PUT- 160) 

ARCCF ( PLAT-356 . PUT- 155. PLAT- 1 58 . 909 ) 

LINE ( PUT-357. PUT+93 .PLAT+157) 

LINE ( PUT-358. PLAT+94 .PUT- 158) 

LINE (PUT-359. PLAT- 157, PUT- 158) 

( * 

LINE (PLAT-360. PLAT- 157, PLAT- 160) 

LINE (PUT-361 .PUT- 158. PUT- 159) 

LINE (PUT-362 .PLAT+95 .PUT+159) 

LINE (PUT-363, PUT- 159. PUT- 160) 

LINE (PLAT-364 .PLAT+96 .PUT+160) 

<* 

(* EXTRA CURVES THAT WERE FORGOTTEN BUT ARE NEEDED 

C 

LINE (PLAT— 800 .PUT+102 .PUT— 105) 

LINE (PUT-801 .PUT+1 1.0, PUT-111) 

LINE (PUT-802, PUT- 106, PUT- 107) 

LINE (PLAT— 803 .PLAT+1 12 , PLAT+1 13 ) 

LINE (PUT-804, PLAT- 139, PUT-145) 

’LINE ( PUT— 805 . PUT+87 .PUT+151) 

LINE (PUT— 806 .PUT— 140 .PUT+146 ) 


283 



l.INi: t PLAT-i 807 . PLAT+ 141 PLAT+147* 

LINE < PLAT-i 808 . PLAT+142 PLAT4 148) 

LINE ( PLAT+809 . PLAT+ 143 . PLAT+ 140) 

LINE i Pl.AT+8 1 0 PLAT+ 1 03 . PL.AT4 1 1)4 ) 

LINE. ( F’LAT+81 1 . PLAT+ 1 05 .F’LAT+106) 

LINE ( PLAT+8 12 . PLAT^l 44 E'LAT+IOO) 

l.INF. < PLAT+81 3 . PLAT+ 1 50 FM.AT+ 1 59 ) 

LINE ( 907 , PLAT+ 1 27 . PLAT+ 1 3b t 

<* DELETE TEMPORARY POINTS THAT WERE CONSTRUCTED 
( ’ 

DELETEPT (900) 

DELETEPT (901) 

DELETEPT (902) 

DELETEPT (903) 

DELETEPT (904) 

DELETEPT (905) 

DELETEPT (906) 

DELETEPT (907) 

DELETEPT (908) 

DELETEPT (909) 

<* 

DELETEPT (910) 

DELETEPT (911) 

DELETEPT (912) 

DELETEPT (913) 

DELETEPT (914) 

DELETEPT (915) 

DELETEPT (916) 

DELETEPT (917) 

DELETEPT (918) 

DELETEPT (919) 

< * 

DELETEPT (920) 

DELETEPT (921) 

DELETEPT (922) 

DELETEPT (923) 

DELETEPT (924) 

DELETEPT (925) 

DELETEPT (926) 

DELETEPT (927) 

DELETEPT (928) 

DELETEPT (929) 

< * 

DELETEPT (930) 

DELETEPT (931) 

DELETEPT (932) 

DELETEPT (933) 

DELETEPT (934) 

. DELETEPT (935) 

DELETEPT (936) 

DELETEPT (937) 

<’ 
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' - PLATFORM .-1 TvFACE DEF 1 N 1 T 1 oN.r 

• DEFINE ESMo.-L* SURK-V K.* : 

, , 4 , M . t , , , , ♦ » * » 1 • 1 » » ♦ f t i t » • * • t ♦ ♦ t * i i t 1 ♦ ♦ « 1 ♦ 1 ♦ « » » » * » 1 ♦ t 4 ♦ f * M t t < f ♦ 


( ’ SURFACED FOR REGION 19 
l ’ 

RULEDSRF (PLAT+90 . PLAT+137 , PLAT+200) 
RULEDSRF (PLAT+91 .PLAT+137 ,PLAT+ 139) 
RULEDSRF (PLAT+92 . PLAT+200 . PLAT+203 ) 
RULEDSRF (PLAT+93 . PLAT+ 1 38 , PLAT+202 ) 
RULEDSRF (PLAT+94 .PLAT+140 .PLAT+206) 
RULEDSRF (PLAT+95 . PLAT+ 1 39 , PLAT+203 ) 

(* 

( ♦ SURFACES FOR REGION 20 
< * 

RULEDSRF (PLAT+96 .PLAT+141 .PLAT+208) 
RULEDSRF (PLAT+97 .PLAT+150 .PLAT+210) 
RULEDSRF (PLAT+98 .PLAT+142 .PLAT+212) 
RULEDSRF (PLAT+99 .PLAT+141 .PLAT+142) 
RULEDSRF (PLAT+100 .PLAT+208 .PLAT+212 ) 

<* 

(♦ SURFACES FOR REGION 21 
<* 

RULEDSRF ( PLAT+ 101. PLAT+ 151, PLAT+235 ) 
RULEDSRF ( PLAT+ 1 02 , PLAT+ 152, PLAT+227 ) 
RULEDSRF ( PLAT+1 03 . PLAT+88 .PLAT+236) 
RULEDSRF ( PLAT+104 . PUT+1 5 1 . PLAT+88 ) 
RULEDSRF ( PLAT+ 1 05 . PLAT+235 , PLAT+236 ) 

C ' 

<’ SURFACES FOR REGION 22 
( * 

RULEDSRF ( PLAT+ 106. PLAT+ 156. PLAT+24 1 ) 
RULEDSRF ( PLAT+ 1 07 . PLAT+ 157, PLAT+249 ) 
RULEDSRF (PLAT+ 108 .PLAT+96 .PLAT+242) 
RULEDSRF ( PLAT+ 1 09 . PLAT+ 1 56 . PLAT+96 ) 
RULEDSRF ( PLAT+ 110. PLAT+24 1 . PLAT+242 > 

( ’ 

(* SURFACES FOR REGION 23 
( * 

RULEDSRF ( PLAT+ 111. PLAT+ 160. PLAT+258 ) 
RULEDSRF (PLAT+1 12 .PLAT+161 .PLAT+265) 
RULEDSRF ( PLAT+ 113, PLAT+ 1 04 . PLAT+259 ) 
RULEDSRF ( PLAT+ 114. PLAT+ 160. PLAT+ 1 04 ) 
RULEDSRF { PLAT+ 115. PLAT+258 , PLAT+259 ) 

<* 

<• SURFACES FOR REGION 24 
<* 

RULEDSRF ( PLAT+1 1 6 . PLAT+ 1 64 , PLAT+275 ) 
RULEDSRF ( PLAT+ 117, PLAT+ 165. PLAT+282 ) 
RULEDSRF ( PLAT+ 118, PLAT+ 112. PLAT+276 ) 
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KULED-RF ( PLAT+ 1 1 9 PLAT- 1 64 PLAT- 1 1 - i 
RULED -RF i PLAT f 1 20 PLAT- 270 . PLAT -t 276 > 

i • 

< • SURFACE.- F<>R KKCloN ..’6 
l • 

RULEDSRF ( PLAT+ 121. PLAT+ 1 68 PLAT+292 > 
RULEDSRF < PI.AT-! 1 22 . PLAT-*- 1 69 PLAT-299 ) 
RULEDSRF ( PLAT+ 1 23 . PLAT+ 1 20 . PLAT+293 ) 
RULEDSRF ( PLAT+ 124. PLAT+ 165. PLAT+ 1 69 ) 
RULEDSRF (PLAT+125 .PLAT+292.PLAT+293) 
RULEDSRF < 906 . PLAT+1 65 , PLAT+907 ) 

( * 

( • SURFACES FOR REGION 26 

r 

RULEDSRF ( PLAT+ 126. PLAT+ 1 72 . PLAT+309 ) 
RULEDSRF ( PLAT+ 127. PLAT+ 1 73 , PLAT+3 1 6 ) 
RULEDSRF ( PLAT+ 128, PLAT+ 128. PLAT+3 1 0 ) 
RULEDSRF (PLAT+129 .PLAT+172.PLAT+128) 
RULEDSRF < PLAT+ 1 30 . PLAT+309 . PLAT+3 1 0 ) 
C 

(• SURFACES FOR REGION 27 
( T 

RULEDSRF ( PLAT+ 131. PLAT+ 1 77 . PLAT+327 ) 
RULEDSRF (PLAT+ 1 32 . PLAT+ 1 36 , PLAT+806 ) 
RULEDSRF < PLAT+ 133. PLAT+ 176. PLAT+ 136) 
RULEDSRF < PLAT+ 1 34 . PLAT+804 , PLAT+806 ) 
RULEDSRF ( PLAT+330 . PLAT+ 1 76 . PLAT+804 ) 

(’ 

<* SURFACES FOR REGION 28 

< * 

RULEDSRF ( PLAT+ 1 35 . PLAT+ 1 80 , PLAT+337 ) 
RULEDSRF ( PLAT+ 136. PLAT+ 181. PLAT+343 ) 
RULEDSRF ( PLAT+ 137. PLAT+ 1 82 . PLAT+338 ) 
RULEDSRF < PLAT+1 38 . PLAT+ 1 80 , PLAT+ 1 82 ) 
RULEDSRF ( PLAT+ 139. PLAT+337 . PLAT+338 ) 

(’ 

< • SURFACES FOR REGION 29 
< * 

RULEDSRF ( PLAT+300 . PLAT+8 . PLAT+800 ) 
RULEDSRF (PLAT+301 . PLAT+1 43 , PLAT+2 14 ) 
RULEDSRF ( PLAT+302 . PLAT+ 1 44 . PLAT+2 1 5 ) 
RULEDSRF < PLAT+303 . PLAT+142 .PLAT+143) 
RULEDSRF ( PLAT+304 . PLAT+2 12 . PLAT+2 14 ) 

( * 

( * SURFACES FOR REG I ON 30 
<* 

RULEDSRF ( PLAT+305 . PLAT+88 .PLAT+236) 
RULEDSRF (PLAT+306 . PLAT+1 8 .PLAT+801 ) 
RULEDSRF <PLAT+307 . PLAT+86 .PLAT+237) 
RULEDSRF (PLAT+308 .PLAT+88 .PLAT+86) 
RULEDSRF ( PLAT+309 . PLAT+236 . PLAT+237 ) 

( * 

<• SURFACES FOR REGION 31 




( ' 

RULEDSRF < PUT-* 1 1 0 PLAT-t 96 . PLAT-* 343 > 
RULED.- K! m AT- '.! 1 PLAT+28 . PLAT-.-: 50 • 
K |! I.EI.*'KF i r ' 1 . A '! -* i 1 V PLAT-* 94 . PLAT+34'. » 
RULEDSRF < PLAT-* '?■ ! i PLAT+90 . PLAT+94 > 
RULEDSRF < PLAT+3 1 4 PLAT+242 . PLAT+243 t 

i ’ 

(• SURFACED FOR REGION 32 

( * 

RULEDSRF ( PLAT+3 1 5 . PLAT+ 1 04 . PLAT+259 ) 
RULEDSRF (PLAT+3 16 . PLAT+38 .PLAT+267) 
RULEDSRF ( PLAT+3 1 7 . PLAT+ 1 02 . PLAT+260 ) 
RULEDSRF ( PLAT+3 1 8 . PLAT+ 1 04 . PLAT+ 102) 
RULEDSRF ( PLAT+3 1 9 . PLAT+259 , PLAT+260 ) 

( * 

(* SURFACES FOR REGION 33 
<* 

RULEDSRF < PLAT+320 . PLAT+1 12 . PLAT+276 ) 
RULEDSRF (PLAT+321 .PLAT+48 .PLAT+284) 
RULEDSRF ( PLAT+322 . PLAT+ 110, PLAT+277 ) 
RULEDSRF ( PLAT+323 . PLAT+ 112, PLAT+ 110) 
RULEDSRF ( PLAT+324 . PLAT+276 , PLAT+277 ) 

(’ 

<* SURFACES FOR REGION 34 

< * 

RULEDSRF ( PLAT+325 , PLAT+ 120, PLAT+293 ) 
RULEDSRF ( PLAT+326 . PLAT+58 .PUT+301) 
RULEDSRF ( PLAT+327 . PLAT+ 118, PLAT+294 ) 
RULEDSRF ( PLAT+3 2 8 . PLAT+ 120. PLAT+ 118) 
RULEDSRF ( PLAT+329 . PLAT+293 , PLAT+294 ) 

<• 

(' SURFACES FOR REGION 35 
( ’ 

RULEDSRF ( PLAT+ 1 46 . PLAT+ 1 28 , PLAT+3 1 0 ) 
RULEDSRF ( PLAT+1 47 .PLAT+68 .PLAT+3 18) 
RULEDSRF ( PLAT+ 1 48 . PLAT+ 126, PLAT+3 1 1 ) 
RULEDSRF ( PLAT+ 149. PLAT+1 28 . PLAT+ 1 26 ) 
RULEDSRF ( PLAT+ 1 50 . PLAT+3 1 0 . PLAT+3 1 1 ) 

( ’ 

(’ SURFACES FOR REGION 36 
< ♦ 

RULEDSRF < PLAT+ 151. PLAT+ 1 36 . PLAT+806 ) 
RULEDSRF (PLAT+1 52 . PLAT+78 .PLAT+329)' 
RULEDSRF ( PLAT+ 153. PLAT+ 1 34 . PLAT+807 ) 
RULEDSRF ( PLAT+ 1 54 . PLAT+ 136, PLAT+ 1 34 ) 
RULEDSRF ( PLAT+ 155, PLAT+806 , PLAT+807 ) 

(* 

( ’ SURFACES FOR REGION 37 
(’ 

RULEDSRF ( PLAT+ 1 56 PLAT+ 1 82 , PLAT+338 ) 
RULEDSRF ( PLAT+ 157, PLAT+ 1 83 , PLAT+345 ) 
RULEDSRF ( PLAT+ 1 58 . PLAT+ 1 84 . PLAT+339 ) 
RULEDSRF ( PLAT+ 1 59 . PLAT+ 1 82 . PLAT+ 184) 
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Rl’l.EP.'KF ' PLAT - 1 (>U PLAT+338 . PLAT- 339 > 

( • 

< • SURFACE.- FUR RE'.] ON .<8 

< • 

RULEDSRF ( PLAT+ 161 PLAT+144 .PLAT4215) 
RULEDSRF < PLAT 4 1 62 . FLAT+ 1 4 5 . FLAT+8 1 0 > 
RULEDSRF < PLAT- 163 . PLAT+147 .PLAT+2 18 ) 
RULEUSRF < PLAT+1 64 . PLAT+145 .PLAT+139 ) 
RULEDSRF < PLAT+ 1 65 . PLAT+8 1 0 . PLAT+203 ) 

< * 

(* SURFACES FOR REGION 39 

< * 

RULEDSRF < PLAT+ 1 66 . PLAT+ 143. PLAT+2 1 4 ) 
RULEDSRF (PLAT+167 .PLAT+7 .PLAT+811) 
RULEDSRF (PLAT+168 .PLAT+146 .PLAT+219) 
RULEDSRF ( PLAT+1 69 ,PLAT+ 143 .PLAT+146 ) 
RULEDSRF ( PLAT+ 170, PLAT+2 1 4 , PLAT+2 1 9 ) 

C 

( • SURFACES FOR REGION 40 
( * 

RULEDSRF (PLAT+171 .PLAT+86 .PLAT+237) 
RULEDSRF ( PLAT+1 72 . PLAT+1 7 .PLAT+230) 
RULEDSRF ( PLAT+1 73 .PLAT+84 .PLAT+238) 
RULEDSRF ( PLAT+1 74 .PLAT+86 .PLAT+84) 
RULEDSRF (PLAT+1 75 .PLAT+237 .PLAT+238) 

( ’ 

( ’ SURFACES FOR REG ION 41 
( ’ 

RULEDSRF < PLAT+1 76 . PLAT+27 .PLAT+252) 
RULEDSRF ( PLAT+1 77 .PLAT+37 .PLAT+269) 
RULEDSRF ( PLAT+1 78 .PLAT+1 00 .PLAT+261 ) 
RULEDSRF (PLAT+179 .PLAT+102 .PLAT+100 ) 
RULEDSRF ( PLAT+1 80 . PLAT+260 , PLAT+261 ) 

< * 

(♦ SURFACES FOR REGION 42 
( 4 

RULEDSRF ( PLAT+181 .PLAT+47 .PLAT+286) 
RULEDSRF ( PLAT+1 82 .PLAT+57 .PLAT+303) 
RULEDSRF ( PLAT+ 1 83 . PLAT+ 116. PLAT+295 ) 
RULEDSRF (PLAT+1 84 .PLAT+1 18 PLAT+1 16) 
RULEDSRF (PLAT+1 85 PLAT+294 .PLAT+295) 

( 4 

< 4 SURFACES FOR REGION 43 
( 4 

RULEDSRF ( PLAT+1 86 .PLAT+67 .PLAT+320) 
RULEDSRF ( PLAT+1 87 .PLAT+77 .PLAT+331) 
RULEDSRF (PLAT+1 88 .PLAT+1 32 .PLAT+808) 
RULEDSRF ( PLAT+ 1 89 .PLAT+1 34 , PLAT+1 32) 
RULEDSRF ( PLAT+1 90 .PLAT+807 .PLAT+808) 

C 

(• SURFACES FOR REGION 44 

< 4 ' 
RULEDSRF (PLAT+1 91 . PLAT+1 84 , PLAT+339 ) 
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RULEDSRF ( I-LAT- 1 <• I LAT + 1 80 . PLAT- 1 348 1 
RULED.-RF ( PLATA 1 «) PLAT+ 1 86 PLAT-i 340 > 
RULEDSRF (PLAT-* 1)4 PLA.T+184 . F’LAT-j 186 l 
RULEDSRF ( PLAT * I 9 f v PI.AT+ 339 PLAT- 340 I 

( • 

( ' SURFACES FOR REGION 48 
( * 

RULEDSRF ( PLAT+ 1 96 . PLAT+ 1 83 . PLAT+345 ) 
RULEDSRF ( PLAT+ 1 97 . PLAT+ 191, PLAT+35 1 ) 
RULEDSRF ( PLAT+ 1 98 . PLAT+ 1 87 , PLAT+349 ) 
RULEDSRF < PLAT+ 1 99 . PLAT+ 183. PLAT+ 1 87 ) 
RULEDSRF ( PLAT+200 . PLAT+345 . PLAT+349 ) 

< * 

(• SURFACES FOR REGION 46 
<* 

RULEDSRF < PLAT+20 1 . PLAT +6 .PLAT+802) 
RULEDSRF (PLAT+202 .PLAT+148 .PLAT+221 ) 
RULEDSRF ( PLAT+203 . PLAT+ 146. PLAT+ 1 48 ) 
RULEDSRF ( PLAT+204 . PLAT+2 1 9 , PLAT+22 1 ) 

( * 

<* SURFACES FOR REGION 47 
<* 

RULEDSRF (PLAT+205 .PLAT+16 .PLAT+803) 
RULEDSRF ( PLAT+206 . PLAT+82 .PLAT+239) 
RULEDSRF (PLAT+207 .PLAT+84 .PLAT+82) 
RULEDSRF ( PLAT+208 . PLAT+238 . PLAT+239 ) 

( * 

( * SURFACES FOR REGION 48 
( * 

RULEDSRF (PLAT+209 .PLAT+92 .PLAT+244) 
RULEDSRF ( PLAT+2 10 , PLAT+26 .PLAT+254) 
RULEDSRF ( PLAT+2 1 1 . PLAT+90 . PLAT+245 ) 
RULEDSRF (PLAT+2 12 .PLAT+92 .PLAT+90) 
RULEDSRF ( PLAT+2 1 3 . PLAT+244 . PLAT+245 ) 

< ’ 

<* SURFACES FOR REGION 49 
< ’ 

RULEDSRF ( PLAT+2 1 4 , PLAT+ 1 00 . PLAT+26 1 ) 
RULEDSRF (PLAT+2 15 .PLAT+36 .PLAT+271) 
RULEDSRF (PLAT+2 16 .PLAT+98 .PLAT+262) 
RULEDSRF (PLAT+2 17 .PLAT+ 100 PLAT+98) 
RULEDSRF ( PLAT+2 1 8 . PLAT+26 1 . PLAT+262 ) 

( ’ 

( * SURFACES FOR REGION 50 
(* 

RULEDSRF ( PLAT+2 1 9 , PLAT+ 108, PLAT+278 ) 
RULEDSRF (PLAT+220 .PLAT+46 .PLAT+288) 
RULEDSRF ( PLAT+22 1 . PLAT+ 1 06 , PLAT+279 ) 
RULEDSRF ( PLAT+222 . PLAT+ 1 08 . PLAT+1 06 > 
RULEDSRF ( PLAT+223 . PLAT+278 , PLAT+279 ) 

<* 

(’ SURFACES FOR REGION 51 
<* 
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'RULEDSRF < PL.AT-r ''.'.'4 PUT-1 16.PLAT+295 ) 
RULEDSRF ( PLAT- 225 PLAT + 56 PLAT+305 ) 
RULEDSRF ( PLAT- 226 .PLAT+1 14 . PLAT+296 > 
RULEDSRF < PLAT-:::"' . PLAT-* lib PLAT+ IIP 
RULEDSRF ( PLAT-22H PLAT+295 PLAT+296 ) 

( ' 

<• SURFACES FOR REGION 52 
{ ’ 

RULEDSRF ( PLAT+229 . PLAT+1 24 . PLAT+3 1 2 > 
RULEDSRF (PLAT+230 . PLAT+66 .PLAT+322) 
RULEDSRF ( PLAT+23 1 . PLAT+1 22 . PLAT+3 1 3 ) 
RULEDSRF ( PLAT+232 , PLAT+ 124, PLAT+ 122) 
RULEDSRF ( PLAT+233 , PLAT+3 1 2 . PLAT+3 1 3 ) 

(* 

(» SURFACES FOR REGION 53 
< * 

RULEDSRF < PLAT+234 , PLAT+ 1 32 , PLAT+808 ) 
RULEDSRF (PLAT+235 .PLAT+76 .PLAT+333) 
RULEDSRF < PLAT+236 , PLAT+ 1 30 . PLAT+809 ) 
RULEDSRF ( PLAT+237 . PLAT+ 1 32 , PLAT+ 1 30 ) 
RULEDSRF ( PLAT+238 , PLAT+808 . PLAT+809 ) 

<* 

(* SURFACES FOR REGION 54 

( * 

RULEDSRF < PLAT+239 , PLAT+ 186. PLAT+340 ) 
RULEDSRF (PLAT+240 .PLAT+187 .PLAT+349) 
RULEDSRF (PLAT+241 .PLAT+188 .PLAT+341 ) 
RULEDSRF (PLAT+242 .PLAT+186 .PLAT+188) 
RULEDSRF ( PLAT+243 . PLAT+340 , PLAT+34 1 ) 

<* 

(» SURFACES FOR REGION 55 

< * 

RULEDSRF 1 PLAT+244 . PLAT+1 92 . PLAT+354 ) 
RULEDSRF ( PLAT+245 . PLAT+1 99 . PLAT+359 ) 
RULEDSRF (PLAT+246 .PLAT+1 94 .PLAT+356) 
RULEDSRF ( PLAT+247 . PLAT+ 1 92 . PLAT+ 1 94 ) 
RULEDSRF ( PLAT+248 . PLAT+354 PLAT+356 ) 

( * 

<’ SURFACES FOR REGION 56 
( • 

RULEDSRF (PLAT+249 .PLAT+1 53 .PLAT+224) 
RULEDSRF (PLAT+250 .PLAT+149 .PLAT+222) 
RULEDSRF (PLAT+251 , PLAT+1 48 , PLAT+149) 
RULEDSRF ( PLAT+252 , PLAT+22 1 , PLAT+222 ) 

< * 

(* SURFACES FOR REGION 57 

< * 

RULEDSRF ( PLAT+253 . PLAT+ 1 54 . PLAT+233 ) 
RULEDSRF (PLAT+254 .PLAT+1 55 .PLAT+240) 
RULEDSRF (PLAT+255 , PLAT+82 .PLAT+1 55) 
RULEDSRF ( PLAT+256 , PLAT+239 , PLAT+240 ) 

( * 

(• SURFACES FOR REGION 58 
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( • 

RULEDSRF ( PLAT+257 . FLAT-t 1 58 . F'LAT+256 ) 
F:l LEii.- RF ( PLAT+ -2f.fi . PLAT+ 1 59 PLAT+24G ) 
RULEDSRF ( FLAT i 259 . Pl.AT+'JO PLAT+1 59 t 
RULEDSRF' < PLAT+260 . PLAT+245 PLAT+24G } 

< ' 

<• SURFACE? FOR REGION 59 
< * 

RULEDSRF ( PLAT+26 1 , PLAT+ 162, PLAT+273 ) 
RULEDSRF ( PLAT+262 . PLAT+ 1 63 , PLAT+263 ) 
RULEDSRF ( PLAT+263 , PLAT+98 .PLAT+163) 
RULEDSRF ( PLAT+264 , PLAT+262 . PLAT+263 ) 

( * 

<• SURFACES FOR REGION 60 

( * 

RULEDSRF ( PLAT+265 . PLAT+ 1 66 . PLAT+290 ) 
RULEDSRF ( PLAT+266 , PLAT+ 1 67 , PLAT+280 ) 
RULEDSRF ( PLAT+267 . PLAT+ 1 06 , PLAT+ 1 67 ) 
RULEDSRF ( PLAT+268 . PLAT+279 . PLAT+280 ) 

< * 

<’ SURFACES FOR REGION 61 
( * 

RULEDSRF ( PLAT+269 . PLAT+ 1 70 . PLAT+307 ) 
RULEDSRF < PLAT+270 , PUT+171 .PLAT+297 ) 
RULEDSRF (PLAT+271 , PLAT+1 14 .PLAT+171 ) 
RULEDSRF < PLAT+272 , PUT+296 , PLAT+297 ) 

< • 

( ’ SURFACES FOR REGION 62 

< ’ 

RULEDSRF ( PLAT+273 , PLAT+1 74 , PLAT+324 ) 
RULEDSRF ( PLAT+274 . PUT+175 , PLAT+314 ) 
RULEDSRF ( PLAT+275 . PLAT+ 122, PLAT+ 175) 
RULEDSRF < PLAT+276 , PLAT+3 1 3 , PLAT+314) 

( • 

<* SURFACES FOR REGION 63 
( ‘ 

RlfLEDSRF ( PLAT+277 PLAT+1 78 .PLAT+335) 
RULEDSRF ( F’LAT+278 . PLAT+1 79 , PLAT+812 ) 
RULEDSRF i PLAT t .V”' . PLAT+ 1 30 . PLAT+ 1 79 ) 
RULEDSRF (PLAT-* F'LAT+809 .PLAT+812) 

( • 

(* SURFACES FOR REGION 64 
( * 

RULEDSRF ( PLAT-( 28 1 . PLAT+ 1 89 . PLAT+352 ) 
RULEDSRF ( PLAT+282 . PLAT+ 1 90 . PLAT+342 ) 
RULEDSRF ( PLAT-( 283 . PLAT+ 1 88 . PLAT+ 1 90 ) 
RULEDSRF ( PLAT+284 . PLAT+34 1 . PLAT+342 ) 

C 

(• SURFACES FOR REGION 65 
( ’ 

RULEDSRF ( PLAT+285 , PLAT+ 1 95 , PLAT+36 1 ) 
RULEDSRF ( PLAT+286 . PLAT+ 1 96 . PLAT+8 1 3 ) 
RULEDSRF ( PLAT+287 , PLAT+ 194, PLAT+ 196) 
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-RULEDSRF < PLAT*288 . PLAT+ 356 . PLAT+8 1 3 ) 
* ' 

* • : RFV E* FOR REGION GO 


RULEDSRF i PLAT-289 . FLAT- 1 97 • PLAT+360 ) 
RULEDSRF ( PLAT+290 PLAT+ 198 . PLAT+363 ) 
RULEDSRF (PLAT -391 PLAT* 198 .PLAT+1 97) 
RULEDSRF (PLAT+292 PLAT+361 .PLAT+360) 


< * 

(* SURFACES FOR REGION 8? 

( ’ 

RULEDSRF < PLAT+293 . PLAT+193 , PLAT+355) 
RULEDSRF (PLAT+294 .PLAT+ 192 , PLAT+193) 
RULEDSRF (PLAT+295 . PLAT+354 . PLAT+355) 


(* 

C 

<* 

(’ 

C 

C 

<* 

<* 

(* 

<* 


I * * * * f f***44»**4********** 








- PLATFORM REGION DEFINITIONS - 
DEFINE ESMOSS REGIONS 




**************** 




DEFINE REGION 19 

REG3D <19. PLAT+90 PLAT+91 .PLAT+92 .PLAT+93 .PLAT+94 .PLAT+95 . 

PLAT+137 PLAT+138 . PLAT+139 . PLAT+1 40 . PLAT+200 . PLAT+202 . 6c 
PLAT+203 . PLAT+206 . PLAT+20 1 . PLAT+204 . PLAT+205 . PLAT+207 . & 
PLAT+65 PLAT+66 .PLAT+67 .PLAT+97 .PLAT+98 .PLAT+99 &c 
PLAT+1 00. PLAT+68) 


& 


< - DEFINE REGION 20 

REG 3D <20. PLAT+93 PLAT+96 .PLAT+97 .PLAT+98 .PLAT+99 .PLAT+1 00. Sc 
PLAT+138 PLAT+1 41 .PLAT+1 42 PLAT+1 50 PLAT+20 1 .PLAT+202 . & 
PLAT+204 . PLAT+208 . PLAT+2 1 2 , PLAT+209 . PLAT+210 , PLAT+2 11. Sc 
PLAT+65 .PLAT+66 .PLAT+71 .PLAT+4 .PLAT+97 .PLAT+98 . 6c 
PLAT+101 PLAT+1 02) 

< ’ 

DEFINE REGION 21 

* REG31) <21 PLAT-97 PI AT+ 1 01 , PLAT+1 02 , PLAT+1 03 . PLAT+1 04 .PLAT+1 05 & 

PLAT-150 PLAT- 151 .PLAT+1 52.PLAT+88 .PLAT+235 .PLAT+2 10 . 6c 

PLAT+227 PLAT- 236 . PLAT+209 , PLAT+226 . PLAT+2 1 1 .PLAT+228 , 6c 
PLAT+71 PLAT-73 .PLAT+4 .PLAT+101 .PLAT+1 02 .PLAT+1 09 . 6c 
PLAT+1 10 PLAT+8 > 

(* 

<♦ DEFINE REGION 22 

' REG3D (22 .PLAT+102 .PLAT+106 .PLAT+107 .PLAT+108 .PLAT+109 .PLAT+1 10 , & 
PLAT+ 1 52 , PLAT+1 56 , PLAT+1 57 .PLAT+96 . PLAT+227 .PLAT+24 1 & 

PLAT+249 . PLAT+242 . PLAT+226 . PLAT.+247 , PLAT+228 . PLAT+248 . & 
PLAT+73 . PLAT+75 .PLAT+8 .PLAT+1 2 .PLAT+109 .PLAT+1 10 , Sc 
PLAT+1 15. PLAT+1 16) 
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( • 
< • 


DEFINE REGION 23 


Kh'G :!• . PLAT- 1 0" FLAT 4 I 1 ] PLAT- 11 .. PLAT+ 11 3. PLAT+ 1 14 . PLAT+ 1 1 5 . * 


PLAT- 1 r )7 . PLAT+1 f>0 .PLAT+161 .PLAT+] 04 . PLAT+258 . PLAT+265 . 6c 
PLAT+259 . PLAT+249 . PLAT+247 . PLAT+264 . PLAT+266 . PLAT+248 . 6c 
PLAT+75 . F'LAT+77 . PLAT-- 1 2 .PLAT+16 .PLAT+1 15 PLAT+ 121 . k 
PLAT+1 16. PLAT+1 22) 

<’ 

(* DEFINE REGION 24 

<* 

REG3D ( 24 . PLAT+1 12 , PLAT+1 16 . PLAT+1 17 , PLAT+1 18 .PLAT+1 19 .PLAT+1 20 , & 
PLAT+161 PLAT+1 64.PLAT+ 165, PLAT* 11 2. PLAT+265, PLAT+275, 6c 
PLAT+282 . PLAT+276 , PLAT+264 . PLAT+28 1 . PLAT+283-, PLAT+266 , 6c 
PLAT+77 , PLAT+79 .PLAT+16 .PLAT+20 . PLAT+ 121 .PLAT+1 27 . 6c 
PLAT+1 22 .PLAT+1 28) 

C 

<* DEFINE REGION 25 

( • 

REG3D ( 25. PLAT+1 24, PLAT+1 25. PLAT+ 121 . PLAT+1 22 .PLAT+ 123 .PLAT+1 17 , & 
PLAT+ 168. PLAT+ 169, PLAT+ 120, PLAT+1 65 . PLAT+292 . PLAT+299 , 6c 
PLAT+282 , PLAT+293 . PLAT+28 1 . PLAT+298 . PLAT+283 . PLAT+300 . 6c 
PLAT+79 .PLAT+20 .PLAT+24 .PLAT+81 . PLAT+1 27 .PLAT+1 28 . 6c 
PLAT+1 33. PLAT+1 34) 

< ’ 

<* DEFINE REGION 26 


< ’ 

REG3D (26. PLAT+1 22. PLAT+1 26. PLAT+1 27. PLAT+1 28. PLAT+1 29. PLAT+1 30. 6c 
PLAT+ 1 72 . PLAT+ 1 73 . PLAT+ 1 28 . PLAT+ 1 69 . PLAT+309 . PLAT+3 16. 6c 
PLAT+3 1 0 . PLAT+299 . PLAT+298 . PLAT+3 15 . PLAT+317 . PLAT+300 . 6c 
PLAT+81 . PLAT+83 .PLAT+24 .PLAT+28 . PLAT+1 33. PLAT+1 39 . 6c 
PLAT+1 34, PLAT+1 40) 


<* DEFINE REGION 27 

C 

REG3D ( 27. PLAT+ 127. PLAT+330 . PLAT+131 .PLAT+1 32. PLAT+ 1 33 . PLAT+ 134. 6c 
PLAT+ 173 PLAT+1 76 .PLAT+1 77 .PLAT+1 36. PLAT+3 16. PLAT+804 . 6c 
PLAT+327 . PLAT+806 PLAT+3 1 5 . PLAT+326 . PLAT+317 . PLAT+328 . 6c 
PLAT+83 PLAT+85 TLAT+28 .PLAT+32 . PLAT+1 39 . PLAT+1 45 . 6c 
PLAT+140 PLAT+H' > 


( * 

( ' DEFINE REGION 28 

( * 

REG 3D < 28 . PLAT+ 131 PLAT ,135. PLAT+ 1 36 . PLAT+ 1 37 . PLAT+ 1 38 . PLAT+ 139. Sc 
PLAT+ 1 80 . PLAT+ 181. PLAT+ 1 82 . PLAT+ 1 77 . PLAT+337 . PLAT+343 . Sc 
PLAT+338 . PLAT+327 , PLAT+326 , PLAT+805 . PLAT+344 . PLAT+328 . & 
PLAT+85 , PLAT+87 .PLAT+88 .PLAT+32 .PLAT+1 45 .PLAT+1 51 , 6c 
PLAT+1 46 .PLAT+1 52) 

(* 

(* DEFINE REGION 29 

(* 

REG3D (29 . PLAT+98 .PLAT+300 .PLAT+301 .PLAT+302 .PLAT+303 .PLAT+304 . & 
PLAT+1 42. PLAT+8 . PLAT+1 43 .PLAT+1 44 . PLAT+2 12 .PLAT+800 . 6c 
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- 1 4 p|. AT 1 1 r J ■ PLAT-204 PLAT-r>:] 1 . PLAT-*- 2 1 3 . PLAT-*-.-- 16. N* 

PLAT4.fi*> . I'I.aT- 4 PLAT- 34 PL.ATi6 c < PLAT+98 .PLAT+1 02 . i<: 

PLAT- 1U - PLAT- 105 i 

I>EF 1 NF REGION 30 

REG3D • 30 . PLAT+300 . PLAT+305 . PLAT+306 PLAT* 307 PLAT+308 . PLAT+309 & 
PLAT+8 PLAT+88 .PLAT+18 .PLAT+86 PLAT+236 .PLAT+801 . Sc 
PLAT+237 . PLAT+800 . PLAT+2 1 1 , PLAT+228 PLAT+229 . PLAT+2 1 3 , & 
PLAT+4 .PLAT+8 .PLAT+34 , PLAT+38 . PLAT+102 .PLAT+1 10 , & 
PLAT+105 .PLAT+1 1 1 ) 


C 

(» DEFINE REGION 31 

REG3D (31 PLAT+306 , PLAT+3 10 .PLAT+31 1 .PLAT+312 .PLAT+3 13 , PLAT+314 . 

PLAT+1 8 . PLAT+96 .PLAT+28 .PLAT+94 .PLAT+242 .PLAT+250 . & 
PLAT+243 . PLAT+80 1 . PLAT+228 , PLAT+248 , PLAT+25 1 . PLAT+229 , Sc 
PLAT+8 .PLAT+1 2 .PLAT+38 .PLAT+42 .PLAT+1 10 .PLAT+1 1 1 . & 
PLAT+1 16 .PLAT+1 17) 


He 


( • 

(* DEFINE REGION 32 

REG3D ( 32. PLAT+3 11. PLAT+3 15. PLAT+3 16. PLAT+3 17. PLAT+31 8. PLAT+3 19. & 
PLAT+28 PLAT+1 04, PLAT+38 , PLAT+1 02. PLAT+259 .PLAT+267 . & 
PLAT+260 . PLAT+250 . PLAT+248 , PLAT+266 . PLAT+268 . PLAT+25 1 . & 
PLAT+1 2 .PLAT+1 6 .PLAT+42 .PLAT+46 .PLAT+1 16 .PLAT+1 1 < . & 
PLAT+ 1 22 . PLAT+ 1 23 ) 

( * 

(* DEFINE REGION 33 

REG3D ( 33 , PLAT+3 1 6 , PLAT+320 , PLAT+32 1 . PLAT+322 . PLAT+323 . PLAT+324 & 
PLAT+38 .PLAT+1 12 .PLAT+48 .PLAT+1 10. PLAT+267. PLAT+276 . & 
PLAT+284 . PLAT+277 . PLAT+266 . PLAT+283 . PLAT+285 . PLAT+268 . & 
PLAT+1 6 .PLAT+20 .PLAT+46 .PLAT+50 . PLAT+ 1 22 . PLAT+ 1 23 , & 
PLAT+ 1 28 . PLAT+ 1 29 ) 


( * 

( • 

C 

REG3D 


DEFINE REGION 34 

( 34 PLAT+32 1 PLAT+325 . PLAT+326 . PLAT+327 . PLAT+328 . PLAT+329 . & 
PLAT+48 PLAT+1 20. PLAT* 58 . PLAT+1 18 . PLAT+284 .PLAT+293 & 

PLAT+301 .PLAT+294. PLAT+283. PLAT+300 . PLAT+302 . PLAT+285. tc 
PLAT+20 .PLAT+24 .PLAT+50 .PLAT+54 .PLAT+128 , PLAT+1 29 . & 
PLAT+ 1 34 . PLAT+ 135) 


(’ 

(* DEFINE REGION 35 

( » 

REG3D (35 PLAT+326 .PLAT+146 .PLAT+147 .PLAT+148 .PLAT+149 , PLAT+150 . & 
PLAT+58 .PLAT+1 28, PLAT+68 , PLAT+1 26 .PLAT+301 .PLAT+3 10 , & 
PLAT+3 1 8 . PLAT+3 1 1 . PLAT+300 . PLAT+3 1 7 , PLAT+3 1 9 . PLAT+302 . Sc 
PLAT+24 .PLAT+28 .PLAT+54 .PLAT+58 . PLAT+1 34 , PLAT+1 35 . Sc 
PLAT+ 1 40 , PLAT+ 141) 


<* 

C 


DEFINE REGION 36 


294 


< • 

REG 3D 


( 30 PLAIN 1 -l 7 PLAT- 1 r . 1 PLAT- 1 52 PLAT- 1 53 . PLAT+ 1 54 PLAT+ 155. W 
PLAT- (if- PLAT- i <«. PLAT 78 . PLAT- 1 34 PLAT *806 .PLAT+339 fc 
PLAT- BUT PLAT- '• 1 K PLAT-3 1 7 . PLAT-* 328 . PLAT-* 330 . PLAT+3 19. <v 
PLAT+28 PLAT- 3.; .F'LAT+58 .PLAT+82 . PLAT+ 1 40 . PLAT+1 4 1 . <* 
PLAT+ 1 4G . PLAT- 147 I 


DEFINE REGION 37 

(’ 

REG3D ( 37 , PLAT+ 152 . PLAT+ 156 . PLAT+1 57 , PLAT+1 58 .PLAT+1 59 , PLAT+1 60 , Sc 
PLAT+70 . PLAT+1 82, PLAT+1 83. PLAT+1 84, PLAT+338 . PLAT+34S . Sc 
PLAT+339 . PLAT+329 , PLAT+328 . PLAT+344 . PLAT+346 , PLAT+330 . Sc 
PLAT+1 46. PLAT+1 52. PLAT+1 53. PLAT+1 47, PLAT+32 .PLAT+62 . Sc 
PLAT+88 . PLAT+89 ) 


(* 

(• DEFINE REGION 38 

<• 

REG3D- (38.PLAT+95 .PLAT+161 .PLAT+162 .PLAT+1 63 .PLAT+1 64 .PLAT+165 . Sc 
PLAT+ 1 44 . PLAT+ 145, PLAT+ 1 47 . PLAT+ 1 39 . PLAT+203 . PLAT+2 15. Sc 
PLAT+8 1 0 . PLAT+2 1 8 . PLAT+204 . PLAT+2 1 6 . PLAT+2 17 . PLAT+205 , Sc 
PLAT+66 , PLAT+69 .PLAT+67 .PLAT+70 .PLAT+98 .PLAT+99 , & 
PLAT+1 03. PLAT+1 04) 


<* 

<* DEFINE REGION 39 

<* 

REG3D (39, PLAT+1 62, PLAT+1 66. PLAT+1 67. PLAT+1 68. PLAT+1 69. PLAT+1 70. Sc 
PLAT+ 145 .PLAT+1 43. PLAT+7 . PLAT+ 146 .PLAT+8 10 .PLAT+2 14 . Sc 
PLAT+8 1 1 . PLAT+2 1 9 . PLAT+2 1 6 , PLAT+2 1 7 , PLAT+2 1 3 . PLAT+220 . Sc 
PLAT+69 .PLAT+70 .PLAT+34 .PLAT+36 . PLAT+1 03 .PLAT+1 04 . Sc 
PLAT+1 05 .PLAT+1 06) 


C 

<» DEFINE REGION 40 

(* 

REG3D (40 .PLAT+1 67 .PLAT+ 171 , PLAT+1 72 . PLAT+1 73 , PLAT+1 74 . PLAT+1 75 . & 
PLAT+7 . PLAT+86 .PLAT+17 .PLAT+84 , PLAT+237 . PLAT+230 , Sc 
PLAT+238 . PLAT+8 1 1 . PLAT+2 1 3 . PLAT+229 , PLAT+23 1 . PLAT+220 , Sc 
PLAT+34 .PLAT+36 .PLAT+38 .PLAT+40 . PLAT+1 05 .PLAT+1 06 . Sc 
PLAT+1 11 PLAT+1 12) 


< • 

(* DEFINE REGION 41 

( * 

REG3D (41 . PLAT+3 1 7. PLAT+1 76, PLAT+1 77.PLAT+ 178. PLAT+1 79. PLAT+1 80. & 
PLAT+27 , PLAT+1 02. PLAT+37 , PLAT+1 00. PLAT+252 .PLAT+260 . & 
PLAT+269 . PLAT+26 1 , PLAT+25 1 , PLAT+268 . PLAT+253 . PLAT+270 . & 
PLAT+42 , PLAT+44 .PLAT+46 .PLAT+48 .PLAT+1 17 .PLAT+1 18 . Sc 


PLAT+1 23. PLAT+1 24) 

<* 

(* DEFINE REGION 42 

C 

REG3D (42. PLAT+327. PLAT+1 81 . PLAT+ 1 82 .PLAT+1 83 .PLAT+1 84 .PLAT+1 85 . Sc 
PLAT+47 , PLAT+1 18 .PLAT+57 .PLAT+1 16 .PLAT+294 .PLAT+303 , Sc 
PLAT+295 , PLAT+286 . PLAT+285 , PLAT+302 . PLAT+304 . PLAT+287 , Sc 
PLAT+50 , PLAT+52 .PLAT+54 .PLAT+56 . PLAT+1 29 .PLAT+1 30 , Sc 
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( • 
( • 


PLAT* 1 35 . FLAT ♦ 1 70 I 

DEFINE REGION 43 


KEG 3D (43 PLAT* 1 53 . PLAT* 1 80 . PLAT* 1 87 . PLAT+ 1 88 . PLAT+ 1 83 . PLAT+ 1 90 & 

F'LAT+07 PLAT* 1 31 . l’LAT+77 . PLAT+ 132 . PLAT+807 . PLAT+33 1 . A 
PLAT+808 .PLAT+320 .PLAT+319 PLAT+330 PLAT+332 . PLAT+321 . k 
PLAT+58 . PLAT+HU .PLAT+62 .PLAT+04 .PLAT+14 1 .PLAT+142 . & 
PLAT+147 . PLAT+ 148 ) 


(’ 

(» DEFINE REGION 44 

(* 

REG3D ( 44 . PLAT+1 87 , PLAT+191 , PLAT+192 .PLAT+1 93 .PLAT+1 94 .PLAT+1 95 , k 
PLAT+77 , PLAT+ 1 84 . PLAT+ 1 85 , PLAT+ 1 86 . PLAT+347 , PLAT+33 1 , k 
PLAT+339 . PLAT+348 . PLAT+340 , PLAT+330 .PLAT+332 , PLAT+346 , k 
PLAT+62 . PLAT+64 .PLAT+89 .PLAT+90 .PLAT+147 .PLAT+1 48 , k 
PLAT+1 53. PLAT+1 54) 


< ’ 

<• DEFINE REGION 45 

C 

REG3D (45 PLAT+192 .PLAT+196 .PLAT+197 .PLAT+198.PLAT+199.PLAT+200 , k 
PLAT+ 1 85 . PLAT+ 1 83 , PLAT+ 191. PLAT+ 1 87 . PLAT+345 . PLAT+35 1 , & 
PLAT+349 .PLAT+348 .PLAT+347 .PLAT+346 .PLAT+344 .PLAT+350 , k 
PLAT+89 PLAT+90 .PLAT+88 .PLAT+91 . PLAT+ 1 53 . PLAT+ 1 54 , k 
PLAT+1 52 .PLAT+1 55) 


< * 

<» DEFINE REGION 46 

< ’ 

REG3D <46 , PLAT+1 63. PLAT+201 .PLAT+202 . PLAT+203 . PLAT+204 , PLAT+1 68. k 
PLAT+147 , PLAT+1 46 .PLAT+6 , PLAT+1 48 . PLAT+218 .PLAT+219 , k 
PLAT+802 , PLAT+22 1 , PLAT+2 1 7 , PLAT+220 . PLAT+223 , PLAT+205 . & 
PLAT+67 . PLAT+70 .PLAT+36 .PLAT+2 .PLAT+99 .PLAT+1 04. k 
PLAT+106 .PLAT+107) 


(* DEFINE REGION 47 

< • 

REG 3D ( 47. PLAT+201 .PLAT+1 73. PLAT+205. PLAT+206 .PLAT+207 .PLAT+208 . k 
PLAT+6 . PLAT+84 .PLAT+1 6 .PLAT+82 . PLAT+238 . PLAT+803 . & 
PLAT+802 . PLAT+239 . PLAT+220 . PLAT+23 1 . PLAT+232 , PLAT+223 . k 
PLAT+36 PLAT+2 . PLAT+40 .PLAT+6 .PLAT+106 .PLAT+107 . & 
PLAT+1 12 PLAT+1 13) 


r 

(• DEFINE REGION 48 

C 

REG3D (48. PLAT+205. PLAT+209. PLAT+2 10. PLAT+2 11 . PLAT+2 1 2 . PLAT+2 1 3 , k 
PLAT+1 6 , PLAT+92 .PLAT+26 , PLAT+90 .PLAT+244 .PLAT+254 , k 
PLAT+245. PLAT+803. PLAT+23 1 . PLAT+25'3 .PLAT+255 .PLAT+232 . k 
PLAT+40 .PLAT+6 .PLAT+44 .PLAT+10 .PLAT+1 12 .PLAT+1 13 , k 
PLAT+1 18, PLAT+1 19) 


C 

(* DEFINE REGION 49 

(* 

REG3D (49 , PLAT+2 14 .PLAT+2 15 , PLAT+2 1 6 . PLAT+2 17 .PLAT+218 .PLAT+2 10 . & 
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PLAT- ..i- PLAT-!- 1 oo PLAT+36 .PLAT+98 PLAT+26 1 .PLAT+271 . <v 
F'LAT- PLAT+354 . PUT+25 3 . PLAT+ 270 . PLAT+272 .PLAT+255 . & 
PLAT* I I PLAT - 1 u .PLAT+48 PLAT- 14 . PLAT-r 1 1 8 . PLAT+ 1 1 9 . cV 
PLAT- 1 A PLAT- 1 25 » 

| • 

(* DEFINE REGION 50 

l * 

REG 3D ( 5U . PLAT+21 5 . PLAT+21 9 . PLAT+220 . PLAT+221 .PLAT+222 .PLAT+223 . <* 
PLAT+36 .PLAT+108 .PLAT+46 .PLAT+1 06 , PLAT+278 .PLAT+288 . Sc 
PLAT+279 , PLAT+27 1 , PLAT+270 . PLAT+287 , PLAT+289 . PLAT+272 , Sc 
PLAT+48 .PLAT+14 .PLAT+52 .PLAT+18 .PLAT+124.PLAT+125 , & 
PLAT+ 1 30 , PLAT+ 1 3 1 ) 

<* 

DEFINE REGION 51 

< * 

REG3D (51, PLAT+220 , PLAT+224 PLAT+225 . PLAT+226 . PLAT+227 , PLAT+228 , Sc 
PLAT+46 . PLAT+ 1 1 6 . PLAT+56 .PLAT+1 14 .PLAT+295.PLAT+305 , Sc 
PLAT+296 . PLAT+288 . PLAT+289 , PLAT+287 , PLAT+304 . PLAT+306 , Sc 
PLAT+52 .PLAT+18 PLAT+56 .PLAT+22 .PLAT+130.PLAT+131 . Sc 
PLAT+1 36. PLAT+1 37) 

< * 

( ’ DEFINE REGION 52 

< * 

REG3D ( 52 . PLAT+225 . PLAT+229 , PLAT+230 . PLAT+23 1 , PLAT+232 , PLAT+233 . Sc 
PLAT+56 . PLAT+1 24 . PLAT+66 .PLAT+122.PLAT+312.PLAT+322 . Sc 
PLAT+3 1 3. PLAT+305. PLAT+304. PLAT+32 1 .PLAT+323. PLAT+306, Sc 
PLAT+56 .PLAT+22 .PLAT+60 .PLAT+26 . PLAT+1 36, PLAT+1 37 , Sc 
PLAT+142 .PLAT+143) 

( * 

(’ DEFINE REGION 53 

(V 

REG 3D ( 53 , PLAT+230 PLAT+234 , PLAT+235 , PLAT+236 . PLAT+237 , PLAT+238 . Sc 
PLAT+66 . PLAT+1 32 .PLAT+76 . PLAT+1 30 .PLAT+808 .PLAT+333 . & 
PLAT+809 . PLAT+322 , PLAT+32 1 . PLAT+332 , PLAT+334 . PLAT+323 . & 
PLAT+60 , PLAT+26 .PLAT+64 .PLAT+30 .PLAT+142 .PLAT+143 , Sc 
PLAT+148 .PLAT+149) 

e 

(* DEFINE REGION 54 

( * 

REG 3D (54 .PLAT+235 . PLAT- .',9 PLAT 10 PLAT+241 .PLAT+242 .PLAT+243 . Sc 
PLAT+76 PLAT-180 PLAT- 18. t‘LAT+188 , PLAT+333 . PLAT+340 . Sc 
PLAT+349 PLAT -341 PLAT- 33.. PLAT+347 .PLAT+350 . PLAT+334 . & 
PLAT+64 PLAT+30 PLAT+90 PLAT+91 .PLAT+148 . PLAT+149 . Sc 
PLAT+ 1 54 PLAT+ 155) 

C 

(* DEFINE REGION 55 

C 

REG3D ( 55 , PLAT+ 1 97 , PLAT+244 . PLAT+245 . PLAT+246 . PLAT+247 , PLAT+248 . Sc 
PLAT+1 91 . PLAT+ 192 .PLAT+1 94 .PLAT+1 99, PLAT+351 .PLAT+354, Sc 
PLAT+356 , PLAT+359 . PLAT+344 . PLAT+357 . PLAT+358 . PLAT+350 , Sc 
PLAT+88 .PLAT+91 .PLAT+93 .PLAT+94 , PLAT+1 52. PLAT+1 55 , Sc 
PLAT+1 57, PLAT+1 58) 
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DEFINE REGION 56 


RF.G3P 


(51) I'LAT-t PLAT-04 PLAT- 249 PL AT -.50 PLAT+251 .PLAT+252. 
PLAT- 146. PLAT- 153. PLAT- 140 PLAT- !»' PLAT- 2;:i F’LAT+224 & 

PLAT+222 • PLAT+206 . PLAT+205 . PLAT+223 PLAT- 225 . PLAT+207 & 
PLAT+C7 . PLAT+G8 .PLAT+2 .PLAT+72 .PLAT+99 .PLAT+100. & 
PLAT+ 1 07 . PLAT* 108) 


(. DEFINE REGION 57 

REG3D (57 PLAT+249 , PLAT+206 .PLAT+253 .PLAT+254 .PLAT+255 .PLAT+256 , Sc 
PLAT+82 , PLAT+ 1 54 . PLAT+ 155. PLAT+ 1 53 . PLAT+239 . PLAT+233 . & 
PLAT+240 , PLAT+224 , PLAT+223 . PLAT+232 . PLAT4-234 , PLAT+225 . Sc 
PLAT+2 , PLAT+6 PLAT+72 .PLAT+74 .PLAT+107 .PLAT+108 , Sc 
PLAT+1 13 ,PLAT+1 14 ) 


DEFINE REGION 58 

REG3D (58 . PLAT+ 21 1 .PLAT+253 PLAT+257 .PLAT+258 .PLAT+259 .PLAT+260 . Sc 
PLAT+90 PLAT+ 158 .PLAT+1 59 .PLAT+1 54 .PLAT+245 , PLAT+256 . 8c 
PLAT+246 , PLAT+233 . PLAT+232 . PLAT+255 . PLAT+234 .PLAT+257 . Sc 
PLAT+6 .PLAT+74 .PLAT+10 .PLAT+76 .PLAT+1 13. PLAT+1 14 & 

PLAT+ 119. PLAT+ 1 20 ) 

< • 

DEFINE REGION 59 

{ REG3D (59 PLAT+2 1 6 . PLAT+257 . PLAT+261 . PLAT+262 .PLAT+263 .PLAT+264 . Sc 
PLAT+98 PLAT+ 1 62. PLAT+1 63. PLAT+1 58. PLAT+262. PLAT+273. Sc 
PLAT+263 PLAT+256 . PLAT+255 .PLAT+272 .PLAT+274 .PLAT+25 < . Sc 
PLAT+10 .PLAT+76 .PLAT+1 4 .PLAT+78 . PLAT+1 19 . PLAT+ 1 20 . Sc 
PLAT+ 125, PLAT+ 126) 

< * 

(. DEFINE REGION 60 

REG3D ( 60 . PLAT+26 1 . PLAT+22 1 , PLAT+265 , PLAT+266 , PLAT+267 , PLAT+268 . Sc 
PLAT+ 1 06 . PLAT+ 166. PLAT+ 167, PLAT+ 1 62 . PLAT+279 , PLAT+290 . Sc 
PLAT+280 , PLAT+273 . PLAT+272 .PLAT-t 289 .PLAT+291 .PLAT+274 Sc 
PLAT+14 .PLAT+78 .PLAT+18 .PLAT+80 PLAT+125 .PLAT+126 Sc 
PLAT+131 .PLAT+1 32 ) 

< * 

DEFINE REGION 61 

( ’ 

REG3D (61 , PLAT+265 . PLAT+226 . PLAT+269 PLAT+270 . PLAT+271 . PLAT+272 . Sc 
PLAT+1 14 , PLAT+ 170 . PLAT- 1 7 1 .PLAT* 166 .PLAT+296 .PLAT+307 , Sc 
PLAT+297 PLAT+290 .PLAT+289 PLAT+306 . PLAT+308 .PLAT+291 . Sc 
PLAT+18 PLAT+80 PLAT+22 .PLAT+82 .PLAT+131 .PLAT+132 . Sc 
PLAT+ 1 37 , PLAT+ 1 38 ) 

c 

(* DEFINE REGION 62 

( * 

REG3D (62 PLAT+269 .PLAT+231 .PLAT+273 .PLAT+274 .PLAT+275 .PLAT+276 . Sc 

PLAT+1 22, PLAT+1 74, PLAT+1 75, PLAT+1 70. PLAT+31 3. PLAT+324. Sc 

PLAT+3 14 . PLAT+307 . PLAT+306 . PLAT+323 . PLAT+325 . PLAT+308 & 
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PLAT-22 . PLAT*?.? PLAT-26 . PLAT- 6-1 PLAT-1 PLAT+1 38 . &■ 
PLAT+143 .PLAT* 1 44 f 


< • DEFINE KFt.loN 03 

( ’ 

REG 3D ( 63 . PLAT+273 . PLAT+230 . F’LAT+277 . PLAT+278 . PLAT+279 . PLAT+280 . & 
PLAT+1 30 PLAT+1 78. PLAT+1 79 PLAT-* ] 74 PLAT+809 . PLAT+335 . & 
PLAT+81 2 . PLAT+324 .PLAT+323 .PLAT+334 PLAT+336 .PLAT+325 . & 
PLAT+26 . PLAT+84 .PLAT+30 .PLAT+86 . PLAT+143 .PLAT+144 . Sc 
PLAT+149 .PLAT+150 ) 

< * 

(* DEFINE REGION 64 

(’ 

REG3D ( 64 .PLAT+277 , PLAT+24 1 , PLAT+28 1 , PLAT+282 . PLAT+283 , PLAT+284 . Sc 
PLAT+ 1 88 . PLAT+ 1 89 . PLAT+ 190. PLAT+ 1 78 . PLAT+34 1 . PLAT+352 . Sc 
PLAT+342 . PLAT+335 . PLAT+334 , PLAT+350 . PLAT+353 . PLAT+336 . & 
PLAT+30 , PLAT+86 .PLAT+91 .PLAT+92 PLAT+149 .PLAT+ 150 . & 
PLAT+155 .PLAT+156 ) 

< * 

(* DEFINE REGION 65 

< * 

REG3D ( 65 . PLAT+28 1 . PLAT+246 . PLAT+285 . PLAT+286 . PLAT+287 . PLAT+288 . & 
PLAT+ 1 94 . PLAT+ 1 95 . PLAT+ 1 96 . PLAT+ 1 89 . PLAT+356 . PLAT+36 1 , Sc 
PLAT+8 1 3 . PLAT+352 . PLAT-r350 . PLAT+358 . PLAT+362 . PLAT+353 . Sc 
PLAT+91 PLAT+92 PLAT+94 PLAT+95 . PLAT+155 .PLAT+156 . Sc 
PLAT+158 PLAT+159) 

(• 

< ’ DEFINE REGION 66 

( * 

REG 3D (66. PLAT+285. PLAT+245 PLAT+289 . PLAT+290 .PLAT+291 .PLAT+292. & 
PLAT+1 99 . PLAT+1 97 . PLAT+ 1 98 , PLAT4 195 . PLAT+359 . PLAT+360 . Sc 
PLAT+363 . PLAT+36 1 . PLAT+358 . PLAT+357 . PLAT+364 . PLAT+362 , Sc 
PLAT+94 . PLAT+93 PLAT+95 . PLAT+96 .PLAT+158 .PLAT+159 . Sc 
PLAT+1 57 .PLAT+1 60 ) 

<* 

(* DEFINE REGION 67 

( ’ 

REG 3D ( 67 , PLAT+ 1 36 PLAT+244 . PLAT+289 . PLAT+293 . PLAT+294 . PLAT+295 . & 
PLAT+ 181. PLAT-t 1 92 . PLAT+ 1 93 . PLAT- 1 97 . PLAT+343 . PLAT+354 . Sc 
PLAT+355. PLAT+360. PLAT+805. PLAT = 44 . PLAT+357 .PLAT+364 . & 
PLAT+87 . PLAT+88 .PLAT+93 .PLAl - *<’ PLAT+151 .PLAT+152 . & 
PLAT+1 57 .PLAT+1 60) 


ORIGINAL ici 

OF POOR QUALITY 
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DEFINE THE TIP TAP 


( ' - 
i • 


( ’ 

t • 

I • 



< ’ 

DELETEPT (801) 

DELETEPT (802) 

DELETEPT ( 803 ) 

DELETEPT ( 804 ) 

DELETEPT (805) 

DELETEPT (806) 

DELETEPT (807) 

DELETEPT (808) 

< * 

DELETECV (900) 

DELETECV (901) 

DELETECV (902) 

DELETECV (903) 

< ” 

POINT! 80 1 . XLED1 .YLED1 , ZVAL3) 

POINT! 802 . XTED1 .YTED1 . ZVAL3) 

POINT! 803 . CXLED . CYLED . ZVAL3 ) 

PO 1 NT ( 804 . CXTED . CYTED , ZVAL3 ) 

POl NT ( 805 X I NNER , YCENTER , ZVAL3 ) 

PO I NT ( 806 XOUTER . YCENTER . ZVAL3 ) 

POt NT ( 807 CX I NER . CYCNTR , ZVAL3 ) 

PO 1 NT ( 808 CXOTER , CYCNTR , ZVAL3 ) 

< ‘ 

ARC < 900 806 . 801 .802) 

ARC <901 .805.801 .802) 

ARC < 902 . 808 . 803 , 804 ) 

ARC < 903 . 807 . 803 , 804) 

( * 

PARMCRV ( TI P+245. 901 . .05) 

PARMPRV ( T I P+246 . 900 , . 05 ) 

PARMCRV (Tl P+247, 903, .05) 

PARMCRV < T 1 P+ 248 , 902 . . 05 ) 

PARMCRV <T1 P+249, 901 , (POS 1+05) ) 

< * 

PARMCRV ( TI P+250. 903. POS 1 ) 

PARMCRV < TI P+251 .902 ,P0S1 ) 

PARMCRV ( T 1 P+252 . 900 . ( POS 1 + . 05 ) ) 
PARMCRV ( T I P+253 ,901 . ( WPOS 1 + 05 ) ) 
PARMCRV (TI P+254 ,903 .YfPOSl ) 
PARMCRV ( TI P+255, 902, WPOS1 ) 
PARMCRV (TIP+256 , 900 , (WPOS1+ 05) ) 
PARMCRV ( T1P+257 , 901 , (POS2+ . 05 ) ) 
PARMCRV (T I P+258, 903, POS2) 
PARMCRV ( T I P+259 , 902 , POS2 ) 
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PARMCRV ( T I P+260 . 900 . < POS2- . 05 ) ) 

PAFJM' RV ( T 1 P+26 1 HO 1 . I WPOS:> 05 > ) 

PAKM< RV ( T i P+262 . 903 . WP0S2 * 

PARMCRV ( T I P+263 . 902 . WP0S2 > 

PARMCRV < TI P+264. 900. (WP0S2+. 05) > 

PARMCRV ( TI P+265 901. P0S3 1 
PARMCRV (TI P+266. 903. P0S3) 

PARMCRV (TI P+267. 902. P0S3) 

PARMCRV (TI P+268. 900. P0S3) 

PARMCRV (TI P+269 .901 .WP0S3) 

( * 

PARMCRV (TI P+270, 903, WP0S3) 

PARMCRV ( TI P+271 .902 .WP0S3) 

PARMCRV (TI P+272. 900. WP0S3) 

PARMCRV ( T I P+273 . 90 1 . ( P0S4- . 05 ) ) 

PARMCRV ( T I P+274 . 903 . P0S4 ) 

PARMCRV (TI P+275. 902. P0S4) 

PARMCRV ( TI P+276. 900. (P0S4- 05)) 

PARMCRV ( TI P+277. 901 , (WP0S4- .05) ) 

PARMCRV (TI P+278. 903. WP0S4) 

PARMCRV (TI P+279. 902, WP0S4) 

( * 

PARMCRV < TI P+280. 900, (WP0S4-. 05)) 

PARMCRV ( TI P+281 .903. . 97) 

PARMCRV ( T I P+282 .902, 97) 

PARMCRV ( T I P+283 , 90 1 . . 90 ) 

PARMCRV (TI P+284. 900. .90) 

PARMCRV ( TI P+285 .901 . .97) 

PARMCRV ( TIP+286 . 900 . 97) 

( ’ ■ 

( • 

<• CONSTRUCT TEMPORARY POINTS NEEDED TO DEFINE CURVES 

( • 

PARMCRV (900.900, (POS 1/2)) 

PARMCRV (901 .900. ( POS 1 +WPOS 1 + . l)/2) 

PARMCRV <902.900. (WPOS1+POS2+. l)/2) 

PARMCRV ( 903 . 900 . ( POS2+WPOS2+ . 1 )/2 ) 

PARMCRV ( 904 . 900 . ( WPOS2+POS3+ 05 )/2 ) 

PARMCRV ( 905 . 900 ( POS3+WPOS3 )/2 > 

PARMCRV ( 906 . 900 < WPOS3+POS4 )/2 ) 

PARMCRV ( 907 . 90U . ( POS4+WPOS4- . 1 )/2 ) 

PARMCRV (908 900 . (WPOS4+ .90 )/2 ) 

PARMCRV ( 909 . 900 . . 935 ) 

( ♦ 

PARMCRV (910,902. (POS1/2) ) 

PARMCRV (911 ,902, < POS 1 +WPOS 1 ) /2 ) 

PARMCRV (912,902, ( WPOS 1+POS2 )/2 ) 

PARMCRV (913,902, (POS2+WPOS2)/2) 

PARMCRV (914,902, (WPOS2+POS3 )/2 ) 

PARMCRV (915,902, (POS3+WPOS3)/2) 

PARMCRV (916,902, (WPOS3+POS4)/2) 

PARMCRV (917,902, (POS4+WPOS4)/2) 
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PARMCRV (918. 902 . (WPOS4+ . 97 )/2 > 


I AKMC KY ( 9 1 9 . 903 . < POS 1 2 > ) 

PARMCRV ( 920 . 903 . ( POS 1 +WPOS 1) 2 1 
PARMCRV 1921. 903 . < WPOS 1 +POS2 ) , 2 ) 

PARMCRV ( 922 . 903 . ( POS2+WPOS2 )/2 ) 

PARMCRV (923.903. (WPOS2+POS3)/2 ) 

PARMCRV ( 924 . 903 . < POS3+WPOS3 ) /2 ) 

PARMCRV (925,903. <WPOS3+POS4)/2) 

PARMCRV (926,903. (P0S4+WPOS4)/2) 

PARMCRV (927.903. (WP0S4+ .97) /2 > 

f * 

PARMCRV (928.901 . (POS1./2) ) 

PARMCRV (929.901 . (P0S1+WP0S1+. l)/2) 

PARMCRV (930.901 . (WPOS1+POS2+ . l)/2) 

PARMCRV (931 .901 . (POS2+WPOS2+. 1 )/2) 

PARMCRV (932.901 . (WPOS2+POS3+ 05) /2 ) 

PARMCRV <933.901 . (POS3+WPOS3)/2) 

PARMCRV (934.901 . (WPOS3+POS4)/2) 

PARMCRV ( 935 . 90 1 , ( P0S4+WP0S4- 1 )/2 > 

PARMCRV (936.901 . (WPOS4+. 90) /2) 

PARMCRV (937.901. 935) 

(’ 



<* 

(. - TIP CAP CURVE DEFINITIONS - 

(• DEFINE ESMOSS CURVES 

(’ 

»*»***♦♦#**•♦♦ 


C 

(* 

LT1P = 0 

LINE (LT I P+587, BLAD+203.T I P+245) 
LINE ( LT I P+588, BLAD+204.T I P+246) 
LINE ( LT I P+589. T I P+245 .TIP+246) 
LINE ( LT I P+590 , BLAD+205 , T I P+247 ) 
LINE ( LTIP+591 ,TI P+247 .TIP+248) 
LINE ( LT I P+592. BLAD+206. TIP+248) 
ARCCFt LT1 P+593 TIP* 245 TIP+249. 928) 
LINE < LT1P+594 .TIP' .'47 .T1P+250) 

LINE ( LT I P+595 .Til’- .'48 . TIP+251 ) 
ARCCF < LT I P+596 . T 1 P+246 . TI P+252 . 900 ) 
LINE ( LT I P+597. BLAD+207 ,TI P+249) 
LINE ( LTIP+598.T1P+249 .TIP+250) 
LINE ( LT I P+599, BLAD+208, TIP+250) 
LINE (LT1 P+600. TIP+250 .TIP+251) 


LINE ( LT I P+60 1 .BLAD+209. TIP+251 ) 
LINE (LT I P+602. TIP+251 .TIP+252) 
LINE (LTIP+603.BLAD+210. TIP+252) 
LINE ( LT I P+604, T I P+249. T I P+253) 
LINE ( LT I P+605, T I P+250. Tl P+254) 
LINE ( LTIP+606, TIP+251 .TIP+255) 
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LINE ( LTIP^GOT.TI P+252. TIP+256) 

1 . T NE < LT I FM-fioe . BLAD+2 1 1 . TJ P+253 t 
LINE i LT I P- GO'. 1 . T I P+25? . T 1 P+? f -4 > 
LINE < LT 1 P-fi 1 0 . BLAP+2 ) 2 TIP*254i 

< ' 

LINE < LTI P+61 1 TI P+254 .TI P+255) 
LINE ( LT I P+6 1 2 . BLAD+2 1 3 . T I P+255 ) 
LINE ( LT I P+6 1 3 . T l P+255 .TIP+256) 
LINE (LT I P+6 14. BLAD+2 14, TIP+256) 
ARCCF ( LT I P+6 1 5 . T I P+253 . T I P+257 . 930 ) 
LINE ( LT I P+6 1 6 , T I P+254 . T I P+258 ) 

LINE (LT I P+6 17 ,TI P+255 ,TI P+259) 
ARCCF ( LT I P+6 1 8 . T I P+256 , T I P+260 , 902 ) 
LINE ( LT I P+6 19 .BLAD+2 15 . TI P+257 ) 

(* 

LINE ( LT I P+620 . T I P+257 .T1P+258) 
LINE (LT I P+621 .BLAD+2 16. T I P+258) 
LINE ( LT I P+622. T I P+258 .TIP+259) 
LINE (LT I P+623. BLAD+2 17. TIP+259) 
LINE ( LT1 P+624. TIP+259 .TIP+260) 
LINE < LT1 P+625. BLAD+2 18. TI P+260) 
LINE < LTIP+626 .TIP+257 .TIP+261 ) 

LINE ( LTIP+627 .TIP+258 .TIP+262 ) 

LINE ( LT I P+628. T I P+259. T I P+263) 

LINE t LTIP+629. TIP+260. TIP+264) 

( • 

LINE ( LT I P+630. BLAD+2 19. TIP+261) 
LINE ( LTIP+631 .TIP+261 .TIP+262) 
LINE ( LT I P+632. BLAD+220. TIP+262) 
LINE ( LTIP+633, TIP+262 .TI P+263) 
LINE ( LT 1 P+634 , BLAD+22 1 , T I P+263 ) 
LINE < LT I P+635. T I P+263 .T1P+264) 
LINE ( LT 1 P+636 . BLAD+222 , T I P+264 ) 
ARCCF ( LT 1 P+637 . T I P+26 1 . T I P+265 . 932 ) 
LINE ( LT I P+638, T I P+262. T I P+266) 

LINE ( LT I P+639 , TIP+263 , TI P+267 ) 

<* 

ARCCF < LT I P+64 0 . T I P+264 . T I P+268 . 904 ) 
LINE (LTIP+641 BLAP-2 ? .T1P+265 ) 
LINE ( LT I P-r64 2 .TIP-* 2< TI P+266) 

LINE (LTI P+643 BLAD- . . I T1P+266) 
LINE (LT1P+644 .TlP+2t^ T1P+267) 
LINE ( LTI P+645 . BLAl>-r225 . TI P+267) 
LINE ( LTI P+646 .TIP+261 T1P+268) 

LINE (LTI P+647 . BLAD+226 . T 1 P+268 ) 
LINE ( LT I P+648 , T I P+265 , T 1 P+269 ) 

LINE ( LTI P+649 . TI P+266 , TI P+270) 

(* 

LINE ( LT I P+650 , T I P+267 , T I P+27 1 ) 

LINE ( LT I P+65 1 , T 1 P+268 . T I P+272 ) • 

LINE ( LTI P+652, BLAD+227.T I P+269) 
LINE ( LT I P+653, T I P+269 .TIP+270) 
LINE ( LTI P+654, BLAD+228 . TIP+270) 
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LINE < LTI P~ 655. Tl P+270 .T1P+271) 

LINE ( l.T I P+656 . BLAD+229 . T I P+27 1 > 

Li Nr. ( LTIP-057 TIP- 271 .TIP+37::* 

LINE « l.T I p+ 656 BLAI'-VIU.TllM -'7.; » 

ARCCF t LT I F*-*-6f> t J T I Pt269 . T 1 P+273 'J34 ) 

I * 

LINE < LT1P+660 .TIP+270 .TIP+274 t 
LINE ( LT1 P+661 .Tl P+271 .TIP+275 > 

ARCCF( LT I P+662 , TIP+ 272 , T I P+276 . 906 ) 

LINE ( LT I P+663. BLAD+23 1 ,TI P+273 > 

LINE ( LT I P+664. T1 P+273 ,TI P+274) 

LINE ( LTIP+665 . BLAD+232 . TIP+274 ) 

LINE (LTIP+666. TIP+274 .TIP+275) 

LINE ( LTI P+667. BLAD+233, TIP+275) 

LINE (LT I P+668. TIP+275 .TIP+276) 

LINE ( LTI P+669 .BLAD+234 .TIP+276) 

C 

LINE < LT I P+670. T1 P+273. T I P+277) 

LINE (LTI P+671 .TIP+274. T I P+278) 

LINE (LT1P+672. TIP+275. T1P+279) 

LINE ( LT I P+673. T I P+276. T I P+280) 

LINE ( LTI P+674. BLAD+235.T I P+277) 

LINE ( LT 1 P+675 . T I P+277 .T1P+278) 

LINE ( LTI P+676 .BLAD+236 ,TI P+278) 

LINE ( LTI P+677, T I P+278 .TIP+279) 

LINE ( LTI P+678 .BLAD+237 .TIP+279) 

LINE (LTI P+679. TIP+279 .TIP+280) 

( ’ 

LINE ( LTI P+680. BLAD+238.T1 P+280) 

ARCCF ( LTI P+681 .TIP+277 , T1P+283 . 936 ) 

LINE ( LTIP+682 .TIP+278 .TIP+281 ) 

LINE ( LT I P+683. T I P+279. TI P+282) 

ARCCF ( LTI P+684 , TIP+280 . Tl P+284 . 908 ) 

LINE ( LTIP+685 .BLAD+239, TIP+281 ) 

LINE ( LTI P+686 .BLAD+240 .TIP+282) 

LINE (LTI P+687. TIP+281 .TIP+283) 

LINE ( LTI P+688 .TIP+282 TIP+284) 

LINE ( LTI P+689 .TIP+281 .TIP+282) 

( • 

LINE ( LTI P+690 .BLAD+24 1 T ! ! ’ + -383 ) 

LINE ( LT1P+691 ,TIF'+283 .TIP* 284 ) 

LINE ( LTI P+692. BLAD+242 TIP+284) 

ARCCF1 LT 1 P+693 . T 1 P+283 TI P+285 . 937 ) 

ARCCF ( LT I P+694 . T I P+284 . T 1 P+286 . 909 ) 

LINE ( LTI P+695. Tl P+285 .TIP+286) 

LINE ( LTI P+696. BLAD+243.T I P+285) 

LINE ( LTI P+697. BLAD+244.T1 P+286) 

(* 

LINE (LTI P+8 19 .TIP+246 .TIP+248) 

LINE ( LTI P+820 .TIP+245 .Tl P+247) 

C 

(» DELETE TEMPORARY POINTS THAT WERE CONSTRUCTED 
<* 
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DELETEPT <900) 
DELETEPT <901 i 
DELETEPT < «u:: < 
DELETEPT < on 3 > 
DELETEPT < 9U-J ) 
DELETEPT (905) 
DELETEPT (906) 
DELETEPT (907) 
DELETEPT (908) 
DELETEPT (909) 

DELETEPT (910) 
DELETEPT (911) 
DELETEPT (912) 
DELETEPT (913) 
DELETEPT (914) 
DELETEPT (915) 
DELETEPT (916) 
DELETEPT (917) 
DELETEPT (918) 
DELETEPT (919) 

* 

DELETEPT (920) 
DELETEPT (921) 
DELETEPT (922) 
DELETEPT (923) 
DELETEPT (924) 
DELETEPT (925) 
DELETEPT (926) 
DELETEPT (927) 
DELETEPT (928) 
DELETEPT (929) 

* 

DELETEPT (930) 
DELETEPT (931) 
DELETEPT (932) 
DELETEPT (933) 
DELETEPT ( 934 ) 
DELETEPT (935) 
DELETEPT (936) 


DELETEPT (937) 

C 

C 

<• * * 

<• 

(* - TIP CAP SURFACE DEFINITIONS - 

(• DEFINE ESMOSS SURFACES 

C 

(* 

STIP = 0 

<• 

(• SURFACES FOR REGION 118 
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< • 

RULEDSRF ( ST 1 P+ 530 . LBLD M78 . LT1P+589 > 
RULEDSRF i >-T IF’’ 531 . LBLD+8J6 . LT1P+820 > 
RULEDSRF ( ST I P+ 533 . LBLD- 0 i7.LT! P+ 8 1 0 ) 
RULEDSRF ( ST I P+533 . LBLD+481 .LT I P+591 ) 
RULEDSRF ( STIP+534 . LTIP+591 . LTIP+589) 

I ’ 

( » SURFACES FOR REG ION 119 

( 4 

RULEDSRF ( ST I P+535 . LBLD+483 , LT I P+593 ) 
RULEDSRF ( ST I P+536 . LBLD+488 , LT I P+598 ) 
RULEDSRF < ST I P+537 , LBLD+484 . LT1 P+594) 
RULEDSRF ( ST I P+538 . LT I P+593 , LT 1 P+594 ) 

<* 

( * SURFACES FOR REGION 120 
( * 

RULEDSRF ( ST I P+539 . LBLD+494 . LT I P+604 ) 
RULEDSRF ( ST I P+540 . LBLD+499 . LT I P+609 ) 
RULEDSRF (ST I P+541 . LBLD+495 , LT1 P+605 ) 
RULEDSRF ( ST 1 P+542 . LT I P+604 . LTIP+605 > 

( * 

(* SURFACES FOR REGION 121 

C 

RULEDSRF ( ST I P+543 . LBLD+505 . LT 1 P+6 1 5 > 
RULEDSRF ( ST 1 P+544 . LBLD+5 1 0 , LT I P+620 ) 
RULEDSRF ( ST I P+545 . LBLD+506 , LT 1 P+6 1 6 ) 
RULEDSRF ( ST I P+546 , LT I P+6 1 5 , LT 1 P+6 1 6 ) 

<• 

<* SURFACES FOR REGION 122 
(* 

RULEDSRF ( ST I P+547 . LBLD+5 1 6 , LT I P+626 ) 
RULEDSRF (STIP+548. LBLD+521 .LT1P+631) 
RULEDSRF (STI P+549 . LBLD+5 17 , LT1 P+627) 
RULEDSRF ( ST I P+550 . LT I P+626 . LT I P+627 ) 

(* 

(* SURFACES FOR REGION 123 
<* 

RULEDSRF ( STI P+551 . LBLD4 527 . LT I P+637 ) 
RULEDSRF < STI P+552 . LBLD+532 . LTIP+642 ) 
RULEDSRF ( STI P+553 . LBLP-t 528 LT 1 1+638 ) 
RULEDSRF ( ST1P+554 . LT1 P+ 637 . LT 1 P+630 ) 

C 

(* SURFACES FOR REGION 124 
(’ 

RULEDSRF ( ST I P+555 . LBLD+538 . LT I P+648) 
RULEDSRF ( STI P+556 , LBLD+543 , LT1 P+653) 
RULEDSRF ( STIP+557 . LBLD+539 , LTIP+649) 
RULEDSRF ( ST I P+558 , LT 1 P+648 , LT I P+649 ) 

<* 

<* SURFACES FOR REGION 125 

C 

RULEDSRF (ST I P+559 , LBLD+549 , LTI P+659) 
RULEDSRF ( ST I P+560 , LBLD+554 , LT I P+664 ) 
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RULEDSRF < ST I P+56 1 . LBUD+500 . LTIP+6G0 \ 
RULEDSRF ( STI P+502 . LT I P+6 59 . LT1 P+660 > 

) • 

( • SURFACE:-’ FOR REGION 120 
< ’ 

RULEDSRF { ST I P+563 . LBLD+560 . LT I P+670 ) 
RULEDSRF (ST I P+564 . LBLP+565 . LT I P+675 ) 
RULEDSRF ( STI P+565. LBLD+561 .I.T1P+671 ) 
RULEDSRF ( ST I P+566 . LT I P+670 . LT I P+67 1 ) 

C 

<* SURFACES FOR REGION 127 
(* 

RULEDSRF ( STI P+567 , LBLD+570 . LT I P+681 ) 
RULEDSRF ( ST I P+568 . LBLD+577 . LT I P+687 ) 
RULEDSRF ( STI P+569 . LBLD+57 1 . LT I P+682 ) 
RULEDSRF ( ST I P+570 . LT1 P+681 . LT1 P+682) 

(* 

(* SURFACES FOR REGION 128 

C 

RULEDSRF ( ST I P+57 1 . LBLD+484 . LT I P+594 ) 
RULEDSRF ( ST I P+572 , LBLD+4 90 . LT I P+600 ) 
RULEDSRF ( ST I P+573 , LBLD+485 . LT I P+595 ) 
RULEDSRF ( ST I P+574 . LT I P+594 . LT I P+595 ) 
RULEDSRF ( ST I P+999 . LT I P+484 . LT I P+485 ) 

<* 

<• SURFACES FOR REGION 129 

( * 

RULEDSRF ( STI P+575 . LBLD+495 . LT I P+605) 
RULEDSRF ( STI P+576 . LBLD+501 LT I P+611) 
RULEDSRF ( ST I P+577 . LBLD+496 . LT I P+606) 
RULEDSRF ( ST I P+578 . LT 1 P+600 . LT I P+6 1 1 ) 

< ’ 

( * SURFACES FOR REGION 130 
( * 

RULEDSRF ( ST I P+579 . LBLD+506 . LT I P+6 1 6 ) 
RULEDSRF ( ST I P+580 . LBLD+512 . LT I P+622) 
RULEDSRF (ST I P+581 . LBLD+507 . LT I P+6 1 7 ) 
RULEDSRF ( ST I P+582 . LT 1 P+6 1 6 . LT I P+6 1 7 ) 
RULEDSRF ( STI P+583 . LTIP-t506 LT1P* *07) 

C 

(* SURFACES FOR REGION 131 

C 

RULEDSRF ( STI P+584 . LBLD+523 LTlP+fi33> 
RULEDSRF ( STI P+585 . LBLD+5 1 8 LT1P+626) 
RULEDSRF ( ST I P+586 . LBLD+627 . LT I P+628 ) 

<* 

(• SURFACES FOR REGION 132 

C 

RULEDSRF ( STIP+587 . LBLD+528 . LT I P+633) 
RULEDSRF ( ST 1 P+588 , LBLD+534 . LT I P+644 ) 
RULEDSRF ( STI P+589 . LBLD+529 , LT I P+639 ) 
RULEDSRF ( ST I P+590 . LT I P+638 , LT I P+639 ) 
RULEDSRF (ST I P+591 , LT I P+528 . LT1 P+529) 
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<• SURFACE? FOR REGION 133 
\ 9 

RULEDSRF <STIP+6y+ LBLD- 54 5 LT11 1 555 i 
RULEDSRF (ST I P+593 . LBLD+54U LT1P+G50 ) 
RULEDSRF ( ST I P+594 . LBLD+G49 . LTIP+G50 ) 

( * 

<’ SURFACES FOR REGION 134 
(* 

RULEDSRF (STIP+595 . LBLD+556 , LTIP+666) 
RULEDSRF ( ST I P+596 , LBLD+55 1 . LT I P+66 1 ) 
RULEDSRF ( ST I P+597 . LBLD+550 . LBLD+55 1 ) 
RULEDSRF (ST I P+598 , LT1 P+660 , LT I P+661 ) 

<* 

(* SURFACES FOR REGION 135 
(* 

RULEDSRF ( ST I P+599 . LBLD+566 , LT1 P+677 ) 
RULEDSRF (ST I P+600 . LBLD+562 , LT I P+672) 
RULEDSRF ( ST I P+60 1 . LBLD+67 1 . LT I P+672 ) 

C 

(* SURFACES FOR REGION 136 
<* 

RULEDSRF ( ST 1 P+602 , LBLD+576 . LTI P+689 ) 
RULEDSRF ( ST I P+603 . LBLD+572 . LTI P+683) . 
RULEDSRF ( ST I P+604 . LBLD+57 1 . LBLD+572 ) 
RULEDSRF < ST I P+605 . LTI P+682 . LTI P+683 ) 

(* 

(• SURFACES FOR REGION 137 

C 

RULEDSRF (ST I P+606 . LBLD+492 . LTI P+602 > 
RULEDSRF ( ST I P+607 . LBLD+486 , LT I P+596 ) 
RULEDSRF (ST I P+608 . LTI P+595 . LTI P+596) 

C 

(* SURFACES FOR REGION 138 

C 

RULEDSRF ( ST I P+609 . LBLD+503 , LT I P+6 1 3 ) 
RULEDSRF ( ST I P+6 1 0 . LBLD+497 . LT 1 P+607 ) 
RULEDSRF ( ST I P+6 1 1 . LT I P+606 . LT 1 P+607 ) 

C 

(* SURFACES FOR REGION 139 

C 

RULEDSRF (STIP+612 . LBLD+514 . LT1P+G24 ) 
RULEDSRF ( ST I P+6 1 3 . LBLD+508 . LT 1 P+6 1 8 > 
RULEDSRF (ST1P+614 . LTIP+617 . LT1P+618 ) 

<* 

(* SURFACES FOR REGION 140 
<* 

RULEDSRF ( ST I P+6 15 , LBLD+525 . LTI P+635 ) 
RULEDSRF (ST I P+616 . LBLD+519 , LTI P+629) 
RULEDSRF ( ST I P+6 1 7 , LT I P+628 , LT I P+629 ) 

(’ 

(* SURFACES FOR REGION 141 

C 
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RULEDSRF ( ST l P+6 18 . LBLD+536 LT I P-646 I 
RULEDSRF < ST I P+fi 1 0 . LBLIh 530 . LT I P+640 » 

RULEDSRF < STIP-6.il) I.T1P-.6?." . I.T1P-G40 - 

< * 

(’ SURFACES FOR REGION 1 1 2 

i ' 

RULEDSRF (STI P+621 . LBLD+547 . LT I P+657 ) 

RULEDSRF ( STI P+622 . LBLD+54 1 . LT1 P+65 1) 

RULEDSRF ( STI P+623 . LT I P+650 . LT I P+651 ) 

( * 

<* SURFACES FOR REGION 143 

r 

RULEDSRF (ST I P+624 . LBLD+558 . LT I P+668) . 

RULEDSRF ( ST I P+625 . LBLD+552 . LT I P+662 ) 

RULEDSRF ( STI P+626 , LT I P+661 .LT I P+662) 

(* 

<* SURFACES FOR REGION 144 
( • 

RULEDSRF { ST I P+627 . LBLD+568 , LT I P+679 ) 

RULEDSRF ( STI P+628 , LBLD+563 . LT I P+673 ) 

RULEDSRF ( ST I P+629 . LT I P+672 , LBLD+673 ) 

(* 

(* SURFACES FOR REGION 145 
<’ 

RULEDSRF ( ST I P+630 . LBLD+578 . LT I P+688 ) 

RULEDSRF ( ST I P+63 1 . LBLD+573 . LTIP+684 ) 

RULEDSRF ( STI P+632 , LT I P+683 . LTIP+684) 

< * 

(• SURFACES FOR REGION 146 
( * 

RULEDSRF (ST I P+633, LBLD+581 . LT1 P+691) 

RULEDSRF (ST I P+634 , LT1 P+689 . LT I P+691 ) 

< ’ 

<’ SURFACES FOR REGION 147 
(’ 

RULEDSRF ( ST I P+635 . LBLD+582 , LT I P+693 ) 

RULEDSRF ( ST I P+636 . LBLD+583 . LT 1 P+694 ) 

RULEDSRF ( ST I P+637 . LBLD+ 586 . LT I P+695 ) 

RULEDSRF ( ST I P+638 . LT I P+693 LT 1 P-s 694 ) 

( * 



( * 

<* - TIP CAP REGION DEFINITIONS - 

(* DEFINE ESMOSS REGIONS 

C 

C * * 

(* 

( * DEFINE REGION 118 

(* 

REG3D( 1 1 8 . ST I P+530 , ST I P+53 1 , ST I P+532 , ST I P+533 . ST I P+534 . SBLD+434 , & 
LBLD+8 1 6 , LBLD+48 1 . LBLD+8 17 , LBLD+478 . LT I P+820 . LTIP+59 1 , & 

LT I P+8 1 9 , LT I P+589 , LT I P+587 , LT I P+588 . LT I P+590 . LT I P+592 , & 
BLAD+203 . BLAD+204 . BLAD+205 , BLAD+206 . TI P+245 ,T1 P+246 . Sc 
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TIP-i-247 TIP-248 ) 
i ’ 

< • DEFINE REGION ) 19 


KEG3IM 119 STIP+5'31 ST I P+535 . ST 1 P+536 . ST 1 P+537 . STIP+538 . SBLD+438 . 

LBLD+483 . LBLD+488 . LBLD+484 . LBLD+816 , LT1P+593 . LTIP+598 . & 
Lj j p+ 5 g 4 , LT I P+820 L,TI P+587 . LTI P+597 . LT I P+599 . LT I P+590 . 6c 
BLAD+203 . BLAD+205 . BLAD+2 07 . BLAD+208 ,T1 P+245 ,T1 P+247 . & 

T I P+249 ,TI P+250) 


& 


< 

( 

( 


• DEFINE REGION 120 

REG3D< 120 .ST I P+536 , ST I P+539 .ST I P+540. ST I P+541 .STIP+542 , SBLD+442 . 

LBLD+494 , LBLD+499 , LBLD+495 . LBLD+488 . LTIP+604 , LTIP+609 , 6c 
LTIP+605 . LTIP+598 , LTIP+597 . LTIP+608 , LTIP+610 , LTIP+599 . 6c 
BLAD+207 .BLAD+208 .BLAD+21 1 .BLAD+212 .TIP+249 .T1P+250 , 6c 
TIP+253 .TIP+254 ) 


& 


C 

(. DEFINE REGION 121 

^ REG3D(121 , ST I P+540. ST I P+543. ST I P+544. ST I P+545. ST I P+546. SBLD+446. & 
LBLD+505 . LBLD+510 . LBLD+506 . LBLD+499 , LTI P+6 15 . LTI P+620 , & 

LT I P+6 1 6 , LT I P+609 , LT I P+608 . LT I P+6 1 9 , LT I P+62 1 . LT I P+6 10, 6c 
BLAD+21 1 .BLAD+212 .BLAD+21 5 .BLAD+2 16 .TIP+253 .TIP+254 . 6c 
T I P+257, T I P+258) 


( * 

(. DEFINE REGION 122 

r REG3D( 122 . ST I P+544 . ST I P+547 , ST I P+548 ST I P+549 ST 1 P+550 . SBLD+450 . & 
LBLD+516 . LBLD+521 , LBLD+5 17 . LBLD+510 . LTI P+626 . LTI P+631 . & 

LT I P+627 . LT I P+620 , LT 1 P+6 1 9 . LT 1 P+630 . LT 1 P+632 . LT I P+62 1 & 

BLAD+2 15 , BLAD+2 16 . BLAD+2 1 9 . BLAD+220 . TI P+257 .T1P+258 , & 

T I P+261 .TIP+262 ) 


( * 


DEFINE REGION 123 


( * 

REG3DI 123 STIP+548 . ST1P+551 ST1P+552 ST1 P-*-553 ST1P+554 . SBLD+454 , 
LBLD+527 . LBLD+532 . LBLD+ 528. LBLD+521 LTI P+637, LTI P+642, & 
LTI P+638 . LTI P+631 . LTI P+630 . LTI P+64 1 I.TIP+643 . LTIP+632 , Sc 

BLAD+219 .BLAD+220 BLAD+223 . BLAD-> .4 1 I P+261 .TIP+262 , &. 

TIP+265 .T1P+266 ) 


& 


<* 

(* DEFINE REGION 124 

(• 

REG3D( 124 STIP+552 . STIP+555 , STIP+556 . ST1P+557 .ST1P+558 , SBLD+458 . 6c 
LBLD+538 , LBLD+543 , LBLD+539 , LBLD+532 . LTIP+648 . LTIP+653 . & 

LTI P+649 , LTI P+642 , LTI P+641 . LTI P+652 , LTI P+654 , LTI P+643 . 6c 
BLAD+223 . BLAD+224 , BLAD+227 , BLAD+228 . T I P+265 . T 1 P+266 . 6c 
T I P+269 .TIP+270) 


<* 

<* 

(’ 

REG3D( 


DEFINE REGION 125 

1 25 , ST I P+556 , ST I P+559 , ST I P+560 . ST 1 P+56 1 . ST I P+562 . SBLD+462 . 


6c 
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LBLD+549 . LBLD+554 . LBLIH550 LBLD- 543 LTI P+659 . LT1 P+664 . & 

LTI P+660 . LTIP+653 . LT 1 F’+652 . L.TIP-6K3 LTIF^fiO', . LT1 P+654 . Sc 
BLAD+227 , BLAD+228 BLAI>- ! M Yr-.: Til TlP+370. & 

T I P+273. TI P+274 ) 

< • 

(’ DEFINE REGION 126 

( • 

REG3D< 1 26 . ST I P+560 . ST I P+563 , ST I P+5G4 . ST I P+ 565 . ST 1 P+566 , SBLD+466 , Sc 
LBLD+560 . LBLD+565 . LBLD+561 , LBLD+554 . LTIP+670, LTI P+675 , Sc 
LTIP+67 1 , LTI P+664 , LTIP+663 , LTIP+674 , LTIP+676 . LTIP+665 , Sc 
BLAD+23 1 .BLAD+232 . BLAD+235 , BLAD+236 .TlP+273 .TIP+274 , Sc 
T I P+277, T I P+278) 

( * 

<* 'DEFINE REGION 127 

<• 

REG3D( 127 . ST I P+564 . ST I P+567 . ST I P+568 , ST I P+569 . ST I P+570 . SBLD+470 , Sc 
LBLD+570 , LBLD+577 . LBLD+57 1 . LBLD+565 . LTIP+681 , LTIP+687. Sc 
LTI P+682 . LTI P+675 . LTIP+674 . LTI P+690 , LTI P+685 . LTI P+676 . & 
BLAD+235, BLAD+236. BLAD+241 .BLAD+239 . TI P+277 . TI P+278 , Sc 
T I P+28 1 , TIP+283 ) 

( * 

( * DEFINE REGION 128 

r 

REG3D( 1 28 , ST I P+533 , ST I P+57 1 . ST I P+572 , ST I P+573 . ST I P+574 . SBLD+999 , & 
LBLD+484 , LBLD+490 . LBLD+485 . LBLD+481 . LTIP+594 . LTIP+600 . Sc 
LT I P+595 . LT I P+59 1 . LTI P+599 . LTI P+601 . LTI P+590 . LTIP+592 . Sc 
BLAD+205 . BLAD+206 , BLAD+208 , BLAD+209 . T I P+247 , T 1 P+248 , Sc 
T I P+250 ,TI P+251 ) 

<* 

(* DEFINE REGION 129 

<* 

REG3D< 1 29 , ST I P+572 , ST I P+575 , ST I P+576 , ST I P+577 . ST I P+578 . SBLD+474 . Sc 
LBLD+495 , LBLD+501 . LBLD+496 , LBLD+490 . LTI P+605 , LTI P+61 1 , Sc 
LTI P+606 . LTIP+600 , LTIP+599 LTIP+610 . LTIP+612 . LT1P+601 . Sc 
BLAD+208 . BLAD+209 . BLAD+2 1 2 . BLAD+2 1 3 . T I P+250 . T I P+25 1 . Sc 
T I P+254 ,TI P+255 ) 

(* 

( ’ DEFINE REGION 130 

< • 

REG3D< 130 , ST I P+576 . ST I P+579 . ST 1 P+580 . ST1 FM 58 I n P+582 , SBLD+583 , Sc 
LBLD+506 , LBLD+5 1 2 . LBLD+507 , LBLD J 6u 1 . LI 1 1 • Hi 6 . LTI P+622 . Sc 
LTIP+617. LTIP+61 1 , LTIP+610 . LTI P+621 . LTI P+623 . LTIP+612 , Sc 
BLAD+212 .BLAD+213 .BLAD+2 16 .BLAD+2 17 ,T1 P+254, TI P+255 . Sc 
T I P+258. T I P+259) 

(* 

(* DEFINE REGION 131 

<* 

REG3D( 131 , ST I P+580 , STIP+584 . ST I P+585 , ST I P+586 . STI P+549 , SBLD+478 . Sc 
LBLD+517 , LBLD+523 , LBLD+5 1 8 . LBLD+5 1 2 . LTI P 1-627 , LTIP+633 , Sc 
LT I P+628 . LT I P+622 , LT I P+62 1 . LT I P+632 , LT I P+634 . LTI P+623 , Sc 
BLAD+2 16, BLAD+2 1 7, BLAD+220 .BLAD+221 , T1P+258 . TIP+259 , Sc 
T I P+262, T I P+263) 

<• 
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1 * 
t • 

KEi 


DEFINE REGION 132 


, lM 133. ST 1 P+58-1 .STI P+587 ST1P^'>Kft ST I P+580 . STI P+590 . SBLD+59 1 
LBLD+528 . LBLD+534 . LBLIt- •'* .'> LBLD- \:"i ■ LT l P+638 LT I P+644 
LT1 P+639 . LT I P+633 . LT1 P+632 LT1P+64 3 LTI P+045 . LT I P+634 of 
BLAD+220 . BLAD+22 1 .BLAD+224 . BLAD-225 .TI P+262 ,T1 P+263 . & 

TI P+266. TIP+267 ) 


& 


< ' 
<* 


DEFINE REGION 133 

REG3DI 133 ST I P+588 . ST I P+592 . ST I P+593 . ST I P+594 . STIP+557 , SBLD+482 . 
LBLD+539 , LBLD+545 . LBLD+540 . LBLD+534 . LTIP+649 . LTIP+655 . it 
LTIP+650 , LT I P+644 , LTIP+643 . LTIP+654 . LTIP+656 . LTIP+645 , it 
■ ■ BLAD+224 . BLAD+225 .BLAD+228 . BLAD+229 . TIP+266 . TIP+267 , it 
T I P+270 , T I P+27 1 ) 


DEFINE REGION 134 

^ REG3D( 1 34 , ST 1 P+56 1 . ST I P+592 , ST I P+595 . ST I P+596 . STI P+597 . SBLD+598 . & 
LBLD+550 , LBLD+556 . LBLD+55 1 , LBLD+545 , LTIP+660 . LTIP+666 . it 
LT I P+661 . LTIP+655 , LTIP+654 , LT1 P+665 . LTI P+667 . LTIP+656 , it 
BLAD+228 , BLAD+229 , BLAD+232 , BLAD+233 , T I P+270 . TI P+27 1 . it 
T I P+274, T I P+275) 

C 

DEFINE REGION 135 

( REG3DI 135 , ST I P+595 . STI P+565 , ST I P+599 . ST I P+600 . STI P+601 . SBLD+486 . it 
LBLD+56 1 , LBLD+566 , LBLD+562 . LBLD+556 . LTIP+671 . LT1P+677 , it 
LT I P+672 . LT I P+666 , LT 1 P+665 , LT I P+676 . LT I P+678 . LT I P+667 , it 
BLAD+232 , BLAD+233 . BLAD+236 . BLAD+237 .TIP+274 .TIP+275 , & 

T I P+278 , T I P+279 ) 


DEFINE REGION 136 

REG3D( 136 , STI P+599 .ST I P+569 , ST 1P+602. ST I P+603 .STI P+604 .SBLD+605. & 
LBLD+57 1 , LBLD+576 . LBLD+572 , LBLD+566 , LTI P+682. LTI P+689 . it 
LTI P+683 , LTI P+677 . LT1P+67G . LTI P+685 . LTI P+686 . LTI P+678 , & 
BLAD+236 , BLAD+237 . BLAD+239 . BLAD+24U . T I P+278 TI P+279 , it 
T I P+281 , T1P+282 ) 


C 

(♦ DEFINE REGION 137 

( * REG3D< 1 37 . ST I P+532 , ST 1 P+ 573 . ST 1 P+606 ST 1 P-607 ST I P+608 . SBLD+490 . it 
LBLD+485 , LBLD+492 . LBLD+486 . LBLD+8 1 7 LT1P+595 . LTI P+602 . it 
LT I P+596 . LT 1 P+8 1 9 , LT I P+592 . LT 1 P+60 1 LT 1 P+603 . LT I P+588 , it 
BLAD+204 , BLAD+206 , BLAD+209 , BLAD+2 1 0 . T I P+246 , T I P+248 , & 

T I P+251 , TI P+252 ) 


(. DEFINE REGION 138 

REG3D( 138 . ST I P+606 , ST I P+577 , ST I P+609 , ST I P+6 10 . STI P+61 1 .SBLD+493. it 
LBLD+496 , LBLD+503 , LBLD+497 . LBLD+492. LTI P+606. LTI P+6 13, it 
LTI P+607. LTI P+602, LTI P+601 , LTIP+612 . LTIP+614 , LTIP+603 . it 
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- BLAD+209 . BLAD+2 1 0 . BLAD+2 1 3 . BLAD+2 1 4 . TI P+25 1 TI P+252, * 
TIP+255 .TIP+256 ) 

i • 

« • DEFINE REGION 139 

< ' 

REG3D< 1 39. ST 1 P+609. ST I P+581 . ST1 P+C 1 2 . ST 1 P+61 3 . ST I P+614 . SBLD+498 . k 
LBLD+507 , LBLD+5 1 4 . LBLP+508 . LBLD+503 LT1 P+6 1 7 . LT I P+62-1 ,v 
LT1P+618 .LTIP+613. LTIP+612 . LT 1 F'+623 . LTI P+625 . LT1P+6 14 A 
BLAD+2 1 3 . BLAD+2 1 4 . BLAD+2 1 7 . BLAD+2 1 8 . T I P+255 . T 1 P+256 . k 
T I P+259. T I P+260) 

C 

(* DEFINE REGION 140 

C 

- REG3D( 140 . ST I P+6 1 2 . ST I P+585 , ST I P+6 15 . ST I P+6 16 . STIP+617 , SBLD+50 1 , k 

LBLD+5 1 8 . LBLD+525 . LBLD+519 . LBLD+5 14 . LTIP+628 . LTIP+635 . & 

LTI P+629 . LT I P+624 . LT I P+623 . LT I P+634 . LTI P+636 . LT I P+625 . k 
BLAD+2 17 .BLAD+2 18.BLAD+221 . BLAD+222 .TI P+259 . TI P+260 , k 
T I P+263. T I P+264) 

<* 

C DEFINE REGION 141 

<’ 

REG3D( 141 . ST I P+6 15 . ST I P+589 . ST I P+6 18 . ST I P+6 19 . ST I P+620 , SBLD+505 . k 
LBLD+529 . LBLD+536 , LBLD+530 , LBLD+525 . LTI P+639 . LTI P+646 . k 
LTI P+640 . LTIP+635 , LTI P+634 , LTI P+645 , LTI P+647 . LTI P+636 , & 
BLAD+221 , BLAD+222. BLAD+225 .BLAD+226 .TIP+263 .TIP+264 . k 
T I P+267 , TI P+268 ) 

< • 

<* DEFINE REGION 142 

( ’ 

REG3DI 142 . STIP+618 . STIP+593 . ST1P+621 , STIP+622 , STIP+623 . SBLD+508 . k 
LBLD+540 , LBLD+547 . LBLD+541 . LBLD+536 . LTI P+650 , LTI P+657 , k 
LT I P+65 1 . LT I P+646 . LT I P+645 . LT I P+656 . LT I P+658 . LT 1 P+647 , k 
BLAD+225 . BLAD+226 . BLAD+229 . BLAD+230 . TI P+267 . TI P+268 . k 
TIP+271 . TI P+272 ) 

< ’ 

( * DEFINE REGION 143 

< * 

REG3D< 1 43 . ST I P+62 1 . ST 1 P+596 . ST I P+624 . ST I P+625 . ST I P+626 . SBLD+5 12, k 
LBLD+551 . LBLD+558 . LBLD+ 552 LBLD+547. LTIP+661 .LTIP+662, k 
LT I P+668 . LT I P+657 LT I P+656 LT I P+667 . LT 1 P+669 . LT I P+658 , k 

- - BLAD+229 . BLAD+230 . BLAD+233 . BLAD+234 .TIP+271 . TIP+272 . k 

T 1 P+275. T I P+276) 

( * 

<* DEFINE REGION 144 

C 

REG3DI 1 44 , ST I P+624 . ST 1 P+600 . ST I P+627 . ST 1 P+628 . ST I P+629 , SBLD+5 15. k 
LBLD+562 . LBLD+568 . LBLD+563 . LBLD+558 . LTIP+672 , LTIP+679 , k 
LTI P+673 , LTI P+668 . LTI P+667 , LTI P+678 . LTI P+680 . LTI P+669 , k 
BLAD+233 . BLAD+234 . BLAD+237 , BLAD+238 , T I P+275 . TI P+276 . k 
T I P+279, T I P+280) 

<* 

(* DEFINE REGION 145 

<’ 
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REG 31) ( 14-3 ST I P+627 . ST 1 P+603 . ST 1 P+630 , ?T1 P+081 . ST1P+632 . SBLIm 51 9 
LBLD-* 572 LBLD+578 . LBLD+573 . LBLD+568 LTIP+683 LTIP+68R & 
LT I P+684 LT1P+ 079 . LT I P+ 678 LT i 1 086 LT 1 P+092 LT 1 P+080 <v 

BLAD+287.BLAD+238.BLAD+24U.BI,Ai>*24;; .TlP+279 .TIP+280 . & 

T1 P+282 .TI P+284 ) 


<y 


( ’ 
( ’ 


DEFINE REGION 146 


REG3D( 1 46 , ST I P+602 , ST 1 P+568 . ST 1 P+630 . ST I P+633 , ST 1 P+634 . SBLD+522 . 3c 
LBLD+576 , LBLD+577 . LBLD+58 1 . LBLD+578 . LT I P+687 , LT I P+691 , 3c 
LT I P+688 . LT I P+689 , LTIP+685 . LTIP+690 . LT1P+692 . LTIP+686 . & 
BLAD+240 .BLAD+242 , BLAD+239 , BLAD+241 ,TI P+282 .TIP+284 , Sc 
T I P+281 .T1P+283) 


C 

DEFINE REGION 147 

( * REG3D( 1 47 , ST I P+633 . ST I P+635 . ST I P+636 . ST I P+637 . STI P+638 . SBLD+526 . 3c 
LBLD+58 1 . LBLD+582 , LBLD+586 . LBLD+583 . LTIP+691 . LTIP+693 . & 

LT1 P+695 , LT I P+694 . LTIP+690 , LT I P+696 . LT I P+697 . LT I P+692, 3c 
BLAD+24 1 . BLAD+242 . BLAD+243 . BLAD+244 , TI P+283 , T1 P+284 . 3c 
TI P+285, TIP+286) 


(* GIVE THE USER THE OPTION TO FILL IN COOLING PASSAGE # 1 

C 

( * 

PRINT DO YOU WANT COOLING PASSGE # 1 FILLED IN ? 

PRINT ( 1 = YES - 2 = NO) 

READ QUES1 
IF (QUES1 = 1) 

THEN 

RULEDSRF (651. LBLD+376 , LBLD+377 ) 

RULEDSRF ( 652 , PLAT+214 .PLAT+219) 

RULEDSRF ( 655 , LBLD+484 . LBLD+485 ) 

( * 

REG3D ( 150 , SBLD+338 , SBLD+372 . SBLD+388 . SBLD+335.652 651 , Sc 

PLAT+2 1 4 . PLAT+8 1 1 , PLAT+2 1 9 . PLAT+8 1 0 . LBLD+376 . LBLD+39 1 , Sc 
LBLD+377 . LBLD+370 , LBLD+375 . LBLD+378 . LBLD+372 , LBLD+37 1 . Sc 
PLAT+103 , PLAT+104 . PLAT+ 105 . PLAT+ 106 .BLAD+163 . BLAD+164 . & 
BLAD+ 1 66 . BLAD+ 1 67 ) 

( * 

REG3D ( 151 . SBLD+437 . SBLD+471 . SBLD+487 . SBLD+431 . 651 . 655 . 3c 

LBLD+376 . LBLD+39 1 . LBLD+377 . LBLD+370 . LBLD+484 . LBLD+490 , Sc 
LBLD+485 , LBLD+48 1 . LBLD+480 . LBLD+489 , LBLD+49 1 , LBLD+482 , 3c 
BLAD+ 1 63 . BLAD+ 1 64 . BLAD+ 166. BLAD+ 1 67 . BLAD+205 , BLAD+206 . 3c 
BLAD+208 , BLAD+209 ) 

END IF 

C 

(* 

(• 

PRINT DO YOU WANT COOLING PASSGE # 5 FILLED IN ? 

PRINT (1 = YES - 2 = NO) 

READ QUES2 
IF (QUES2 = 1) 
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THEN 

Rl'LEDSRF < 653 . PLAT+339 . PLAT+340 ) 
F;ULEDSRF < 654 . LBLD+462 . LBLD+463 i 
RULEDSRF < C56 . LBLD+57 1 . LBLD+572 i 


REG3D ( 155 . SBLD+370 . SBLD+420 . SBLD+4 1G . SBLD+384 . 653 . 654 . & 

PLAT+33 1 .PLAT+339 . PLAT+348 . PLAT-t340 l.BLD+457 . LBLD+462 . K 
LBLD+8 1 5 . LBLD+463 . LBLD+456 . LBLD-*467. LBLD+468 . LBLD+458 . 6c 
PLAT+147 .PLAT+148 PLAT+153 .PLAT+154 .BLAD+194 .BLAD+195 . & 
BLAD+ 1 98 , BLAD+ 1 99 ) 


(* 

REG3D ( 156 . SBLD+469 , SBLD+520 , SBLD+54 6 . SBLD+483 , 654 . 656 . & 

LBLD+457 . LBLD+462 . LBLD+8 1 5 , LBLD+463 . LBLD+566 . LBLD+57 1 , & 
• LBLD+576 . LBLD+572 . LBLD+8 18 , LBLD+574 . LBLD+575 . LBLD+567 , & 
BLAD+ 1 94 BLAD+ 195. BLAD+ 198. BLAD+ 1 99 . BLAD+236 . BLAD+237 , & 
BLAD+239 . BLAD+240 > 


ENDIF 


(’ 

(* DEFINE REGION 160 

r 

REG3D( 160. PLAT+ 124. PLAT+ 125. PLAT+1 2 1 , PLAT+ 1 22 . PLAT+ 1 23 . PLAT+ 1 1 7 . & 
PLAT+168 .PLAT+169 .PLAT+120 . PLAT+1 65 .PLAT+292 .PLAT+299 , & 
PLAT+282 , PLAT+293 . PLAT+28 1 , PLAT+298 . PLAT+283 .PLAT+300 . & 
PLAT+79 , PLAT+20 .PLAT+24 .PLAT+81 . PLAT+1 27. PLAT+1 28 , & 
PLAT+1 33. PLAT+1 34) 


( *<><><><><><><>< >< ><><><><><>< X ><><>< >0^ ><><><- 

(* 

(’ DISCRETIZE ALL REGIONS 

r 

( * < X >< X >< >< XXX X X X X XX X X* 


:xxxxx> 


( ♦ 

PRINT INPUT THE NUMBER OF NODES PER EDGE FOR THE DOVETAIL/SHANK 
(♦ READ DNODE 
DN0DE=2 


( * 


D1S8NBRK < 1 1 

DI SEDGE ( DOVE+ 1 . DNODE ) 

DI SEDGE ( DOVE +3 . DNODE ) 

D I SEDGE ( DOVE+8 1 . DNODE ) 
END I SCRT 

(* 

DIS8NBRK (2) 

DI SEDGE (DOVE+ 13, DNODE) 
D I SEDGE ( DOVE+ 1 1 , DNODE ) 
DI SEDGE (DOVE+8 9, DNODE) 
END I SCRT 

(* 

DIS8NBRK (3) 

DI SEDGE (DOVE+23, DNODE) 
D I SEDGE ( DOVE+2 1 , DNODE ) 
DI SEDGE (DOVE+97. DNODE) 
END I SCRT 
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D1S8NBRK (4) 

U ] 5EDGE < DOYE+33 . DNODE > 

I)! SEDGE < DOVE- J 1 . DNODE > 

1)1 SEDGE ( DOVE-*- 105 DNODE > 
END I SCKT 

( • 

DIS8NBRK (5) 

D1 SEDGE (DOVE+43 , DNODE ) 

D I SEDGE ( DOVE+4 1 , DNODE ) 

D I SEDGE ( DOVE+ 113. DNODE ) 
END I SORT 

C 

DIS8NBRK (6) 

DI SEDGE (DOVE+53 .DNODE) 

D I SEDGE ( DOVE+5 1 , DNODE ) 

D 1 SEDGE ( DOVE+ 121. DNODE ) 
ENDISCRT 

C 

D1S8NBRK (7) 

DI SEDGE ( DOVE+63 , DNODE ) 

D I SEDGE ( DOVE+6 1 . DNODE ) 

DI SEDGE (DOVE+ 129 .DNODE) 
ENDISCRT 

(• 

DIS8NBRK (8) 

D I SEDGE (DOVE+4. DNODE) 

D I SEDGE ( DOVE+9 , DNODE) 

DI SEDGE ( DOVE+83 . DNODE) 
ENDI SCRT 

(’ 

DIS8NBRK (9) 

DI SEDGE ( DOVE+24 . DNODE ) 

D I SEDGE (DOVE+29 .DNODE ) 
DI SEDGE ( DOVE+99 . DNODE) 
ENDISCRT 

(’ 

DIS8NBRK (10) 

DI SEDGE ( DOVE+44 . DNODE ) 
DI SEDGE < DOVE+49 . DNODE ) 

D I SEDGE ( DOVE+ 115. DNODE ) 
ENDISCRT 
C 

DIS8NBRK (11) 

DI SEDGE (DOVE+64 .DNODE) 
DI SEDGE (DOVE+69 .DNODE) 

D I SEDGE ( DOVE+ 131. DNODE ) 
ENDISCRT 

(* 

DIS8NBRK (12) 

D I SEDGE (DOVE+5, DNODE) 

D I SEDGE (DOVE+ 10. DNODE) 
D I SEDGE (DOVE+86 , DNODE) 


END! SCRT 

< • 

li].-«NBRi: (13) 

1.' 1 SEDGE ( DOVE-) 1 5 DNODE ) 

I) 1 .SEDGE < DOVE+ 20 . DNODE I 
D1 SEDGE (DOVE+93. DNODE) 

END I SORT 

< * 

DIS8NBRK (14) 

DI SEDGE (DOVE+25, DNODE) 

D I SEDGE (DOVE+30, DNODE) 

D I SEDGE ( DOVE+ 101, DNODE ) 

END1SCRT 

C ' 

D1S8NBRK (15) 

DI SEDGE (DOVE+35, DNODE) 

DI SEDGE (DOVE+40, DNODE) 

D I SEDGE (DOVE+ 109, DNODE) 

ENDISCRT 

(* 

DIS8NBRK (16) 

D I SEDGE ( DOVE+45 , DNODE ) 

DI SEDGE (DOVE+50. DNODE) 

DI SEDGE ( DOVE+ 117, DNODE ) 

ENDISCRT 

< * 

DIS8NBRK (17) 

D I SEDGE ( DOVE+55 , DNODE ) 

DI SEDGE (DOVE+60, DNODE) 

D I SEDGE (DOVE+ 125 .DNODE) 

ENDISCRT 

<*' 

DIS8NBRK (18) 

DI SEDGE ( DOVE+65 . DNODE ) 

DI SEDGE (DOVE+70 .DNODE) 

D I SEDGE ( DOVE+ 133. DNODE ) 

ENDISCRT 

( ’ 

( * 

PRINT INPUT THE NUMBER OF NODES PER EDGE FOR THE PLATFORM 

< * READ PNODE 

PNODE=2 

< * 

(’ 

DIS8NBRK (19) 

D I SEDGE (PLAT+200, PNODE) 

DI SEDGE ( PLAT+20 1 . PNODE ) 

DI SEDGE (PLAT+202. PNODE) 

ENDISCRT 

<* 

DIS8NBRK (20) 

DI SEDGE (PLAT+208, PNODE) 

DI SEDGE (PLAT+209, PNODE) 
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r> ] <EDGF. ( PLAT+2 1 0 . PNODE ) 
END 1 SORT 


Dl.rSNHFCK 

D I SEDGE I PLAT+226 . PNODE ) 

DI SEDGE < PLAT+227 . PNODE > 

DI SEDGE ( PLAT+235 . PNODE ) 
END 1 SCRT 

' * 

DIS8NBRK (22) 

D I SEDGE < PLAT+24 1 , PNODE ) 

DI SEDGE (PLAT+247 .PNODE) 
DI SEDGE (PLAT+249. PNODE) 
END 1 SCRT 

(* 

DIS8NBRK (23) 

DI SEDGE (PLAT+258. PNODE) 
DI SEDGE (PLAT+2 64. PNODE) 
DI SEDGE (PLAT+265 .PNODE) 
END I SCRT 

(’ 

DIS8NBRK (24) 

DI SEDGE (PLAT+275 .PNODE) 
DI SEDGE (PLAT+281 .PNODE) 
DI SEDGE (PLAT+282. PNODE) 
END 1 SCRT 

( * 

DIS8NBRK (25) 

DISEDGE (PLAT+ 168 PNODE) 
DI SEDGE (PLAT+28 1 . PNODE ) 
D I SEDGE (PLAT+ 165 .PNODE) 
END I SCRT 

< • 

D1S8NBRK (26) 

D I SEDGE ( PLAT+309 , PNODE ) 
D I SEDGE (PLAT+315 .PNODE) 
DI SEDGE (PLAT+3 16 .PNODE) 
END 1 SCRT 

< ’ 

DIS8NBRK (27) 

DI SEDGE ( PLAT+804 . PNODE ) 
DISEDGE (PLAT+326 .PNODE) 
DISEDGE (PLAT+327 .PNODE) 
END I SCRT 

< * 

DIS8NBRK (28) 

DI SEDGE ( PLAT+337 . PNODE ) 
DI SEDGE (PLAT+805. PNODE) 
DI SEDGE (PLAT+343, PNODE) 
END I SCRT 

<* 

DIS8NBRK (29) 

DI SEDGE (PLAT+2 12, PNODE) 


bi sedge: < plat+2 i 1 . pnode > 

1)1 SEDGE ( PLAT+800 . PNODE > 
ENl'l -VRT 

t • 

[)] S8NBRI; (30) 

D I SEDGE ( PLAT+236 . PNODE ) 
DI SEDGE (PLAT+228. PNODE) 
D 1 SEDGE < PLAT+80 1 . PNODE ) 
ENDISCRT 

(’ 

DIS8NBRK (31) 

Dl SEDGE ( PLAT+242 . PNODE ) 
Dl SEDGE (PLAT+248, PNODE) 
Dl SEDGE (PLAT+250, PNODE) 
ENDISCRT 

( * 

DIS8NBRK (32) 

Dl SEDGE (PLAT+259. PNODE) 
DI SEDGE (PLAT+266, PNODE) 
Dl SEDGE (PLAT+2 6 7. PNODE) 
ENDISCRT 

<• 

DIS8NBRK (33) 

DI SEDGE (PLAT+276 . PNODE ) 
Dl SEDGE ( PLAT+283 . PNODE ) 
DI SEDGE ( PLAT+284 . PNODE ) 
ENDISCRT 

( * 

DIS8NBRK (34) 

DISEDGE (PLAT+293. PNODE) 
DI SEDGE (PLAT+300. PNODE) 
DI SEDGE ( PLAT+30 1 . PNODE ) 
ENDISCRT 

(* 

DIS8NBRK (35) 

DI SEDGE (PLAT+3 10. PNODE) 
Dl SEDGE (PLAT+3 17. PNODE) 
D I SEDGE (PLAT+3 18 .PNODE) 
ENDISCRT 

< ' 

1)1 S8NBRK (36) 

D 1 SEDGE ( PLAT+806 . PNODE ) 
DI SEDGE ( PLAT+328. PNODE ) 
D I SEDGE ( PLAT+329 . PNODE ) 
ENDISCRT 

( * 

DIS8NBRK (37) 

Dl SEDGE (PLAT+338. PNODE) 
DI SEDGE (PLAT+344, PNODE) 
Dl SEDGE ( PLAT+345 . PNODE ) 
ENDISCRT 

C 


DIS8NBRK (38) 



D l SEDGE t PLAT+203 . PNODE ) 

I) I SEDGE < PLAT+204 PNODE ) 

D1 SEDGE < F'LAT- 2 1 ~j . PNODE ) 
ENDISCRT 

) * 

DIS8NBRK (39) 

D I SEDGE < PLAT+2 1 -1 PNODE > 
DI SEDGE ( PLAT+2 1 3 . PNODE ) 

D I SEDGE ( PLAT+8 1 1 . PNODE ) 
END1SCRT 

<* 

DIS8NBRK (40) 

DI SEDGE (PLAT+237 .PNODE) 
DI SEDGE (PLAT+229. PNODE) 
DI SEDGE (PLAT+230. PNODE) 
ENDISCRT 

(’ 

DIS8NBRK (41) 

D I SEDGE (PLAT+260 .PNODE) 

D I SEDGE (PLAT+268 .PNODE) 

D I SEDGE (PLAT+260, PNODE) 
ENDISCRT 

(’ 

D1S8NBRK (42) 

D I SEDGE ( PLAT+294 . PNODE ) 
DI SEDGE ( PLAT+302 . PNODE ) 
DI SEDGE ( PLAT+303 . PNODE ) 
ENDISCRT 

< ’ 

D1S8NBRK (43) 

D I SEDGE (PLAT+807. PNODE) 
DI SEDGE (PLAT+330, PNODE) 
D I SEDGE ( PLAT+33 1 , PNODE ) 
ENDISCRT 

<* 

DIS8NBRK (44) 

D I SEDGE ( PLAT+33 1 , PNODE ) 
D I SEDGE (PLAT+332. PNODE) 
DI SEDGE < PLAT+339 . PNODE ) 
ENDISCRT 

( • 

D1S8NBRK (45) 

DI SEDGE ( PLAT+348 . PNODE ) 
D I SEDGE (PLAT+346 .PNODE) 
DI SEDGE (PLAT+345, PNODE) 
ENDISCRT 

C 

D1S8NBRK (46) 

DI SEDGE (PLAT+2 19. PNODE) 
DI SEDGE (PLAT+220. PNODE) 
DISEDGE (PLAT+802, PNODE) 
ENDISCRT 

<• 


I) ! S8NBRK (47) 

D I SEDGE ( PLAT-r238 . PNODE ) 

]) I SElJGE < PL. AT 4 1 F’NODE ) 
I>1 .'EDGE ( PI.AT+8U PNODE ) 
END 1 SORT 

< ’ 

D1S8NBRK ( 48 ) 

D1 SEDGE ( PLAT+244 . PNODE ) 
DI SEDGE (PLAT+253, PNODE) 
D1 SEDGE ( PLAT+254 , PNODE ) 
END I SCRT 

( * 

DIS8NBRK (49) 

DI SEDGE < PLAT+26 1 , PNODE ) 
DI SEDGE (PLAT+270 .PNODE) 
DI SEDGE ( PLAT+27 1 , PNODE ) 
END I SCRT 

( * 

DJS8NBRK (50) 

DI SEDGE (PLAT+278, PNODE) 
DI SEDGE (PLAT+287. PNODE) 
D I SEDGE ( PLAT+288 , PNODE ) 
END I SCRT 

<* 

DIS8NBRK (51) 

DI SEDGE (PLAT+295. PNODE) 
DI SEDGE ( PLAT+304 . PNODE ) 
D 1 SEDGE ( PLAT+30 5 . PNODE ) 
END 1 SCRT 

( * 

D I S8NBRK (52) 

DI SEDGE (PLAT+312 .PNODE) 
DI SEDGE ( PLAT+32 1 . PNODE ) 
DI SEDGE (PLAT+322. PNODE) 
END I SCRT 

(* 

DIS8NBRK (53) 

DI SEDGE (PLAT+808. PNODE) 
DI SEDGE (PLAT+332, PNODE) 
D I SEDGE (PLAT+333. PNODE) 
END I SORT 

( • 

DIS8NBRK (54) 

DI SEDGE ( PLAT+340 . PNODE ) 
D I SEDGE (PLAT+347, PNODE) 
DI SEDGE (PLAT+349. PNODE) 
END I SCRT 

C 

DIS8NBRK (55) 

D I SEDGE (PLAT+351 .PNODE) 
DI SEDGE (PLAT+344. PNODE) 
DI SEDGE ( PLAT+354 . PNODE ) 
END I SCRT 
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D1S8NBRK <561 

Dl SEDGE < Pl.AT+231 . PNODE ) 

Dl .:EDttE ( PLAT+333 . PNODE ) 

D I SEDGE ( PLAT+224 . PNODE ) 
END 1 SORT 

( * 

DIS8NBRK (57) 

DI SEDGE ( PLAT+239 , PNODE ) 
DI SEDGE ( PLAT+232 . PNODE ) 
Dl SEDGE (PLAT+233, PNODE) 
END I SORT 

( * 

DIS8NBRK (58) 

DI SEDGE (PLAT+245. PNODE) 
DI SEDGE (PLAT+255. PNODE) 
DI SEDGE (PLAT+256, PNODE) 
END1SCRT 

< * 

DIS8NBRK (59) 

Dl SEDGE ( PLAT+262 , PNODE ) 
DI SEDGE ( PLAT+272 . PNODE ) 
DI SEDGE (PLAT+273, PNODE) 
ENP1SCRT 

( ’ 

D1S8NBRK (60) 

DI SEDGE ( PLAT+279 , PNODE ) 
DI SEDGE (PLAT+289 .PNODE) 
Dl SEDGE ( PLAT+290 . PNODE ) 
END I SCRT 

< • 

DIS8NBRK (61) 

Dl SEDGE (PLAT+296, PNODE) 
DI SEDGE (PLAT+306 .PNODE) 
Dl SEDGE ( PLAT+307 . PNODE ) 
END I SCRT 

( * 

DIS8NBRK (62) 

Dl SEDGE (PLAT+3 13. PNODE) 
D I SEDGE ( PLAT+323 . PNODE ) 
Dl SEDGE ( PLAT+324 , PNODE ) 
END I SCRT 

< ’ 

DIS8NBRK (63) 

Dl SEDGE ( PLAT+809 . PNODE ) 
DI SEDGE (PLAT+3 34, PNODE) 
DI SEDGE (PLAT+335, PNODE) 
END I SCRT 

<* 

DIS8NBRK (64) 

D I SEDGE ( PLAT+34 1 . PNODE ) 
DI SEDGE (PLAT+350. PNODE) 
Dl SEDGE (PLAT+352, PNODE) 



END 1 SCRT 


< * 

I ■’ .'P.NI-iRi; ( Gf» » 

D1SEU.E < F’LAT-r /.CiH PNoDE » 

L) I SEDGE < PLAT 4 - '358 . PNODE ) 

D1 SEDGE (PLAT+361 .PNODE) 

END 1 SCRT 

< * 

DIS8NBRK (66) 

D I SEDGE (PLAT+359. PNODE) 

D1 SEDGE (PLAT+360, PNODE) 

DI SEDGE (PLAT+364. PNODE) 

END 1 SCRT 

( * 

D1S8NBRK (67) 

Dl SEDGE (PLAT+343 .PNODE) 

DI SEDGE ( PLAT+805 . PNODE ) 

D I SEDGE (PLAT+354, PNODE) 

END 1 SCRT 

< * 

(* 

PRINT INPUT THE NUMBER OF NODES PER EDGE FOR THE BLADE 
( ’ READ BNODE 
BNODE=2 

(’ 

(* 

DIS8NBRK (68) 

DI SEDGE (LBLD+365, BNODE) 

D I SEDGE (LBLD+368. BNODE) 

DI SEDGE < LBLD+366 . BNODE ) 

END I SCRT 
I * 

DIS8NBRK (69) 

D I SEDGE (LBLD+373, BNODE) 

DI SEDGE (LBLD+374, BNODE) 

DI SEDGE (LBLD+390, BNODE) 

END I SCRT 

< ’ 

DIS8NBRK < 70 ) 

DI SEDGE ( LBLD+38 1 . BNODE ) 

DISEDGE i LPI.D+335. BNODE) 

DI SEDGE ( LBLD+393 . BNODE ) 

END I SCRT 

( • 

D1S8NBRK (71) 

DI SEDGE (LBLD+396, BNODE) 

DI SEDGE (LBLD+389. BNODE) 

Dl SEDGE ( LBLD+40 1 . BNODE ) 

END I SCRT 

(’ 

DIS8NBRK (72) 

DI SEDGE (LBLD+406, BNODE) 

DI SEDGE (LBLD+4 10, BNODE) 
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1)1 SEIXIE < LBLD+4 1 1 . BNODE > 
END I SCRT 

i • 

1)1* “NBKi . < *•' j i 

I) ! SEDGE < LBLD+4 1 7 . BNODE t 
D 1 SEDGE < LBLD+4 2 1 . BNODE ) 

1)1 SEDGE < LBLD+4 22 . BNODE ) 
END 1 SORT 

(’ 

DIS8NBRK (74) 

DI SEDGE ( LBLD+428 . BNODE ) 
DI SEDGE ( LBLD+432 , BNODE ) 
DI SEDGE < LBLD+433 . BNODE ) 
END I SCRT 

< * 

DIS8NBRK (75) 

DI SEDGE (LBLD+439, BNODE) 
DI SEDGE < LBLD+443 . BNODE ) 
DI SEDGE < LBLD+444 . BNODE ) 
END I SCRT 

<* 

DIS8NBRK (76) 

D I SEDGE ( LBLD+450 , BNODE ) 
DI SEDGE < LBLD+454. BNODE) 
DI SEDGE (LBLD+455. BNODE) 
END 1 SCRT 

< * 

DIS8NBRK (77) 

DI SEDGE ( LBLD+461, BNODE) 
DI SEDGE ( LBLD+465 . BNODE ) 
D I SEDGE ( LBLD^ 466 . BNODE ) 
END I SCRT 

< ’ 

DIS8NBRK < 78 ) 

DI SEDGE ( LBLD+382 . BNODE ) 
DI SEDGE < LBLD+386 . BNODE ) 
DI SEDGE (LBLD+391. BNODE) 
END I SCRT 

< • 

D1S8NBRK <7‘.n 
1)1 SEDGE < LBLDMU7 , BNODE ) 
D I SEDGE < LBLD-M 1 2 . BNODE ) 
DI SEDGE (LBLD+4 13. BNODE) 
END I SCRT 

< ♦ 

D1S8NBRK (80) 

DI SEDGE (LBLD+429, BNODE) 
D I SEDGE (LBLD+434. BNODE) 
D I SEDGE (LBLD+4 35, BNODE) 
END I SCRT 

( ’ 

DIS8NBRK (81) 

DI SEDGE ( LBLD+4 5 1 , BNODE ) 



I) T SEDGE (LBLD4 4=)fi BN ODE ) 
D1 SEDGE ( LBLD-t-457 BN ODE > 
END! SORT 

t 

DIS8NBRK (82) 

D1 SEDGE ( LBLD+377 . BN ODE ) 
DI SEDGE (LBLD+378 BN ODE ) 
DI SEDGE ( LBl.D+392 . BNODE ) 
END I SCRT 

( ’ 

DIS8NBRK (83) 

D I SEDGE < LBLD+383 . BNODE > 
DI SEDGE ( LBLD+387 . BNODE ) 
DI SEDGE ( LBLD+395 . BNODE ) 
END I SCRT 

(-* 

DIS8NBRK (84) 

DI SEDGE ( LBLD+398 , BNODE ) 
DI SEDGE (LBLD+403. BNODE) 
DI SEDGE ( LBLD+404 . BNODE ) 
END I SCRT 

(* 

DIS8NBRK (85) 

DI SEDGE ( LBLD+408 . BNODE ) 
DI SEDGE ( LBLD+4 14 BNODE) 
DI SEDGE ( LBLD+4 15. BNODE) 
END I SCRT 

< * 

DIS8NBRK (86) 

D I SEDGE (LBLD+4 19. BNODE) 
DI SEDGE ( LBLD+425 . BNODE ) 
DI SEDGE ( LBLD+426 . BNODE ) 
END! SCRT 

( ' 

DIS8NBRK (87) 

DI SEDGE (LBLD+4 30. BNODE) 
DI SEDGE ( LBLD+436 , BNODE ) 
DI SEDGE (LBLD+4 37. BNODE) 
END] SCRT 

( • 

DIS8NBRK (88) 

DISEDGE (LBLD+441 BNODE) 
DI SEDGE ( LBLD+4 4 7 BNODE) 
DI SEDGE ( LBLD+448 . BNODE ) 
END 1 SCRT 
C 

DIS8NBRK (89) 

D I SEDGE ( LBLD+452 . BNODE ) 
DI SEDGE (LBLD+458. BNODE) 
D I SEDGE ( LBLD+4 5 9 , BNODE ) 
END 1 SCRT 

C 


DIS8NBRK (90) 



Dl SEIXIE < LBLD+463 . BNODE ) 

I)] SEDGE < LBLD+468 . BNODE ) 
r>l SEDGE < LBLD- 469 . BNODE > 
ENDI.m'KT 

< • 

D1S8NBRK (91) 

Dl SEDGE « LBLD-8 1 5 . BNODE ) 

Dl SEDGE ( LBLD+469 . BNODE ) 
Dl SEDGE ( LBLD+470 . BNODE ) 
END I SORT 

C 

Dl S8NBRK (92) 

Dl SEDGE (LBLD+472. BNODE) 

D I SEDGE ( LBLD+47 1 . BNODE ) 
Dl SEDGE < LBLD+465 . BNODE ) 
END 1 SORT 

( ’ 

D1S8NBRK (93) 

Dl SEDGE ( LBLD+478 . BNODE ) 

D I SEDGE < LBLD+8 1 6 . BNODE ) 
Dl SEDGE ( LBLD+477 , BNODE ) 
END1SCRT 

(’ 

D1S8NBRK (94) 

Dl SEDGE ( LBLD+483 . BNODE > 
Dl SEDGE ( LBLD+487 . BNODE ) 
Dl SEDGE ( LBLD+488 . BNODE ) 
END 1 SORT 

( • 

DIS8NBRK (95) 

Dl SEDGE (LBLD+494. BNODE) 
Dl SEDGE ( LBLD+498 BNODE) 
Dl SEDGE ( LBLD+499 BNODE ) 
END 1 SORT 

( * 

D1S8NBRK (96) 

Dl SEDGE ( LBLD+505 .BNODE) 
Dl SEDGE ( LBLD+509 , BNODE ) 
Dl SEDGE ( LBLD+5 1 0 . BNODE > 
END 1 SORT 

( ’ 

DIS8NBRK (97) 

Dl SEDGE (LBLD+5 16. BNODE) 
Dl SEDGE ( LBLD+520 . BNODE ) 
Dl SEDGE < LBLD+52 1 . BNODE ) 
END1SCRT 

C 

D1S8NBRK (98) 

Dl SEDGE ( LBLD+527 . BNODE ) 
D I SEDGE ( LBLD+5 3 1 . BNODE ) 
Dl SEDGE (LBLD+532, BNODE) 
END I SORT 

<’ 


I) i : V 8NBRK (99) 

I H SEDGE < LBLIH 538 . BNODE ) 
D! .-'EDGE < LBLD+'O: BNODE) 
DB-HxiE < LBLD-54 < .BNODE t 
END I SORT 

( * 

DIS8NBRE (100» 

D1 SEDGE < LBLD+549 .BNODE) 
DI SEDGE (LBLD+553. BNODE) 
DI SEDGE ( LBLD+554 . BNODE ) 
ENDISCRT 

(* 

D1S0NBRK (101) 

DISEDGE < LBLD+560 . BNODE > 
DI SEDGE ( LBLD+564 . BNODE ) 
DI SEDGE (LBLD+565. BNODE) 
ENDISCRT 

(* 

DIS0NBRK (102) 

DI SEDGE ( LBLD+570 . BNODE) 
DI SEDGE (LBLD+579. BNODE) 
DI SEDGE ( LBLD+577, BNODE) 
ENDISCRT 

(’ 

DIS0NBRK (103) 

DI SEDGE < LBLD+490 . BNODE ) 
DI SEDGE ( LBLD+495 . BNODE > 
DI SEDGE ( LBLD+500 . BNODE ) 
ENDISCRT 

( ' 

D1S8NBRK (104) 

DI SEDGE (LBLD+5 12. BNODE) 
DI SEDGE ( LB LD+ 5 17. BNODE) 
DI SEDGE ( LBLD+522 . BNODE ) 
ENDISCRT 

( * 

DIS0NBRK (105) 

DI SEDGE ( LBLD+534 . BNODE > 
D I SEDGE ( LBLD+539 . BNODE 1 
DI SEDGE ( LBLD+544 . BNODE » 
ENDISCRT 

(’ 

DIS0NBRK (106) 

DI SEDGE (LBLD+55G. BNODE) 
DI SEDGE ( LBLD+56 1 . BNODE ) 
DI SEDGE (LBLD+555, BNODE) 
ENDISCRT 

<* 

DIS0NBRK (107) 

DI SEDGE (LBLD+485. BNODE) 
DI SEDGE ( LBLD+49 1 , BNODE ) 
DI SEDGE (LBLD+492. BNODE) 
ENDISCRT 



JMSRNHRK MOB I 
H .-rix,F t LBLO- 1 ‘Mi BNODE ) 
l.» | .-. El.xiF « LRLIK -M*.: BNoi>F ) 

DI SEDGE < LBLIH 503 BNODE ) 
ENDJSCRT 

< * 

DIS8NBRK (109) 

DI SEDGE (LBLD+507. BNODE) 
DI SEDGE (LBLD+5 13 .BNODE) 

D I SEDGE (LBLD+5 14, BNODE) 
END I SORT 

(’ 

DIS8NBRK (110) 

DI SEDGE (LBLD+5 18, BNODE) 
DI SEDGE (LBLD+524, BNODE) 

D I SEDGE (LBLD+5 2 5 .BNODE) 
END1SCRT 
C 

DIS8NBRK ( 111 ) 

D I SEDGE ( LBLD+529 , BNODE ) 
DI SEDGE ( LBLD+535 .BNODE) 
DI SEDGE (LBLD+536, BNODE) 
ENDISCRT 

( * 

DIS8NBRK (112) 

D 1 SEDGE ( LBLD+ 540 . BNODE ) 
DI SEDGE (LBLD+546. BNODE) 
DI SEDGE < LBLD+547 . BNODE ) 
ENDISCRT 

( • 

D1S8NBRK (113) 

DI SEDGE < LBLD+5 5 1 , BNODE ) 
DI SEDGE ( LBLD+557 . BNODE ) 
DI SEDGE (LBLD+558. BNODE) 
ENDISCRT 

<’ 

DIS8NBRK (114) 

DI SEDGE ( LBLD+562 . BNODE ) 
DI SEDGE (LBLD+567. BNODE) 
DI SEDGE (LBLD+ 568. BNODE) 
ENDISCRT 

( ’ 

D1S8NBRK (115) 

DI SEDGE (LBLD+572 .BNODE) 
DI SEDGE < LBLD+575 . BNODE ) 
DI SEDGE (LBLD+578. BNODE) 
ENDISCRT 

(’ 

DIS8NBRK (116) 

DI SEDGE ( LBLD+576 , BNODE ) 
D I SEDGE ( LBLD+578 , BNODE ) 
DI SEDGE (LBLD+580. BNODE) 


END I SCRT 

( ’ 

D1V8NBUK (117 i 

I* I SElXiE i L.BLD+58 1 . BNoDE t 

[)1 SEDGE < LBLD+582.BNODE) 

DI SEDGE < LBLD+584 . BNODE l 
END I SCRT 

(' 

(* 

PRINT INPUT THE NUMBER OF NODES PER EDGE FOR THE TIP CAP 
( * READ TNODE 
TNODE=2 

(* 

(* 

DIS8NBRK (118) 

DISEDGE (LT I P+589, TNODE) 

DI SEDGE (LT I P+820. TNODE) 

D I SEDGE ( LT I P+587 . TNODE ) 

END I SCRT 

( * 

DIS8NBRK (119) 

DISEDGE (LT I P+593, TNODE) 

DI SEDGE (LT I P+597 .TNODE) 

DI SEDGE (LT I P+598. TNODE) 

END I SCRT 

C 

DIS8NBRK (120) 

D I SEDGE ( LT I P+6 04 . TNODE ) 

DI SEDGE ( LT I P+608 . TNODE ) 

DI SEDGE (LT1 P+609. TNODE) 

END I SCRT 

(’ 

DIS8NBRK (121) 

DI SEDGE (LT1 P+6 15. TNODE) 

DI SEDGE (LTI P+6 19. TNODE) 

DI SEDGE (LTI P+620. TNODE) 

END 1 SCRT 

(* 

DIS8NBRK (122) 

DI SEDGE ( LTI P+626 .TNODE ) 

D I SEDGE (LTI P+630. TNODE) 

DI SEDGE < LTI P+631 .TNODE ) 

END 1 SCRT 

<* 

DIS8NBRK (123) 

DI SEDGE ( LTI P+637 .TNODE) 

DI SEDGE < LT I P+64 1 , TNODE ) 

DI SEDGE ( LTI P+642 .TNODE) 

END I SCRT 

(* 

DIS8NBRK (124) 

D I SEDGE ( LT I P+648 . TNODE ) 

DI SEDGE (LTI P+652. TNODE) 
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I> 1 SEDGE » LT 1 P+ 653 . TNODE ) 
ENI) I 'CRT 

DIS8NBKI. 

D I SEDGE ( LTI P+6 59 TNODE ) 

DI SEDGE ( LTI P+663 TNODE » 

DI SEDGE < LTI P+664 TNODE ) 
END1SCRT 

( * 

DIS8NBRK (126) 

DI SEDGE (LTI P+670 .TNODE) 

D I SEDGE (LTI P+674. TNODE) 
DI SEDGE (LTI P+675 TNODE) 
ENDISCRT 

<* 

DI S8NBRK (127) 

D I SEDGE ( LT I P+6 8 1 . TNODE ) 
DI SEDGE ( LT I P+690 . TNODE ) 

D I SEDGE ( LT I P+687 . TNODE ) 
ENDISCRT 

<* 

DIS8NBRK (128) 

DI SEDGE ( LT I P+594 . TNODE ) 
DI SEDGE (LTI P+599. TNODE) 
DI SEDGE (LTI P+600 TNODE) 
ENDISCRT 

( * 

DIS8NBRK (129) 

DI SEDGE ( LTI P+605 TNODE) 
DI SEDGE (LTIP+610 TNODE) 
DI SEDGE ( LT I P+6 1 1 . TNODE ) 
ENDISCRT 

( * 

DIS8NBRK (130) 

DI SEDGE (LTI P+6 16. TNODE) 
DI SEDGE (LTI P+621 .TNODE) 
DI SEDGE (LTI P+622 TNODE) 
ENDISCRT 

<* 

DIS8NBRK ( 131 ) 

DISEDGE (LTI P+627 TNODE) 
DI SEDGE ( LT I P+632 . TNODE ) 
DI SEDGE ( LTI P+633. TNODE) 
ENDISCRT 

(• 

DIS8NBRK (132) 

DI SEDGE (LTI P+638 .TNODE) 
DI SEDGE (LTI P+643, TNODE) 
D I SEDGE (LTI P+644, TNODE) 
ENDISCRT 

(* 

D1S8NBRK (133) 

DI SEDGE ( LT 1 P+649 , TNODE ) 


1)1 .'EDGE ( LT I F*-* 654 TNODE > 
I) I SEDGE i LT I P- fi 55 TNODE > 
END I .'CRT 


DIS8NBRK ( 1 34 t 
D1 SEDGE ( LTIP+GOU .TNODE » 
DISEDGE ( LT 1 P+665 TNODE • 
DI SEDGE (LTI P+666. TNODE) 
ENDISCRT 

( * 

DIS8NBRK (135) 

DI SEDGE ( LTI P+67 1 . TNODE ) 
DI SEDGE (LTI P+676. TNODE) 
DISEDGE (LTI P+677. TNODE) 
ENDISCRT 

C 

DIS8NBRK (136) 

DI SEDGE (LTI P+682. TNODE) 
DI SEDGE (LTI P+685. TNODE) 
DI SEDGE ( LTI P+689 . TNODE ) 
ENDISCRT 

<* 

DIS8NBRK (137) 

DI SEDGE (LTI P+8 19 TNODE) 
DI SEDGE (LTI P+595. TNODE) 
DI SEDGE ( LT I P+60 1 TNODE ) 
ENDISCRT 

r 

DIS8NBRK (138) 

DI SEDGE (LTI P+606. TNODE) 
DI SEDGE (LTI P+6 12. TNODE) 
D I SEDGE ( LT I P+6 1 3 TNODE ) 
ENDISCRT 

( * 

D1S8NBRK (139) 

DI SEDGE (LTI P+6 17 .TNODE) 
D I SEDGE (LTI P+6 2 3 TNODE) 
DI SEDGE (LT1P+G24 .TNODE) 
ENDISCRT 

C 

D1S8NBRK (140) 

DI SEDGE (LTI P+628. TNODE) 
DI SEDGE ( LT 1 P+634 . TNODE > 
DI SEDGE (LTI P+635. TNODE) 
ENDISCRT 

C 

DIS8NBRK (141) 

DI SEDGE ( LT I P+639 , TNODE ) 
D I SEDGE ( LT I P+64 5 , TNODE ) 
DI SEDGE ( LT I P+646 . TNODE ) 
ENDISCRT 

C 


DIS8NBRK (142) 



1) I .?EDGE < LT 1 P+650 . TNOI)E ) 

I >1 SEDGE < LT I P+656 . TNODE ) 

1)1 SED(jE ( LTIP+ 657. TNODE* 
ENL>1 SORT 

( • 

D1S0NBRK < 1431 
D I SEDGE ( LTI P+66 1 . TNODE > 
D1 SEDGE < LTI P+66 7. TNODE) 

D I SEDGE ( LT I P+668 . TNODE ) 
ENDISCRT 

<’ 

DIS0NBRK (144) 

DI SEDGE ( LT 1 P+672 . TNODE ) 
D1 SEDGE ( LT I P+678 . TNODE ) 

D I SEDGE (LTI P+67 9. TNODE) 
END I SCRT 

C 

DIS8NBRK (145) 

D I SEDGE ( LT I P+683 , TNODE ) 
DI SEDGE (LTI P+6 86, TNODE) 
DISEDGE (LTI P+68 8. TNODE) 
END 1 SCRT 

(’ 

DIS8NBRK (146) 

DI SEDGE (LTI P+689. TNODE) 
DI SEDGE (LTI P+687. TNODE) 
DI SEDGE (LTI P+690 .TNODE) 
ENDISCRT 

C 

DIS8NBRK (147) 

D I SEDGE ( LT I P+69 1 . TNODE ) 
DI SEDGE ( LT 1 P+693 . TNODE ) 
DI SEDGE ( LT I P+690 . TNODE > 
ENDISCRT 

(* 

D1S8NBRK (160) 

DI SEDGE ( PLAT+ 1 68 . PNODE ) 
DI SEDGE (PLAT+ 169. PNODE) 
DI SEDGE ( PLAT+ 120 PNODE ) 
D I SEDGE ( PLAT+ 165. PNODE > 
DI SEDGE ( PLAT+292 . PNODE ) 
DI SEDGE (PLAT+299. PNODE) 
DI SEDGE (PLAT+282 .PNODE ) 
DI SEDGE (PLAT+293. PNODE) 
D I SEDGE ( PLAT+28 1 . PNODE ) 
D I SEDGE (PLAT+298, PNODE) 
DI SEDGE (PLAT+283, PNODE) 
D I SEDGE (PLAT+300. PNODE) 
ENDISCRT 

C 

IF (QUES1 = 1) 

THEN 

DIS8NBRK (150) 


H SElxlE < LBLD- 376 BNODE > 
EN1>1 :• CRT 

4 ' 

IH .-'HNBKI. U ■■) n 

DI SE1X7E ( LEtLIM 376 . BNODE > 

ENDISCRT 

4 * 

ENDl F 

< * 

< * 

IF (QUES2 = 1) 

THEN 

DIS8NBRK (155) 

DI SEDGE (LBLD+462, BNODE) 
ENDISCRT 

( * 

DIS8NBRK (156) 

DI SEDGE ( LBLD+462 , BNODE ) 
ENDISCRT 

( ’ 

ENDIF 

<• 

(* 

END RECIPE 


333 





repor t documentation page 

a *»— » " * naucrtg *m t*rom\ to wnwwg— i iwimpim 5 T" c **'_ L r! 


Form Approved 
OMB No. 0704-0188 


1. AGENCY USE ONLY (Un* «»*) 


1 SSB EY USE ONLY (L— w tan*) 2 - BEPO "^ D *j ^ 99 2 

4. imJE AND SUBTTTUE 

pngine Structures Modeling Software System: Computer Code 
User’s Manual 


«. AUTHOR (S) 

General Electric Company 

7. PflffOBMNO OWOA H7 A T TOH NAME(S) AND APOWESS<BS) 

Aircraft Engine Business Group 
General Electric Company 
Cincinnati, Ohio 45215 

*. SPOHtOlUNaAWHrrORINQ AGENCY NAMES<S) AND ADORESS<ES) 

National Aeronautics and Space Administration 
Lewis Research Center 
Cleveland, Ohio 44135-3191 


3. REPORT TYPE 


tM> bufdan or any atm meat 

«on PnRtf (070A01M). WMwRnn, OC SOSO*. 


! AND DATES 
Final Contractor Report 
I Z FUNDING NUMBERS ~ 


WU-5Q5-63-5B 
C-NAS 3-22767 


•. PERFORMNQ ORGAHttATION 


10. SPONSOftWO/MOMTOfUNQ 
M2ENCY REPORT NUMEER 


NASA CR-1 89154 


11 SUPPLEMENTARY NOTES 

Project Manager, CC Chaims, Structures Division, NASA Lewis Research Center, (216) 433-3252. 


U t 3 T RI BUTK>N/AVAiLAB1UTY STATEMENT 

Unclassified - Unlimited 
Subject Category 39 


1 12b. OtSTWBUTON COOC 


is. ABSTRACT (Mtxmum 200 m**9) . . 

FSMOSS is a snecialized software system for the construction of geometric descriptive and discrete analylioJ 

produce input forV^TRAN and a “recipe; processor which genent« 
eeometric models from Lrametric definitions. ESMOSS can be executed both m interactive and batch modes. 
E^ve^Sde is considered to be the default mode and that mode will be assumed m the ihscussmn m this 

document unless stated otherwise. 


1 15. NUMBER OP PAGES 

14. SUBJECT TERM* 338 

Computer coda^Geometric modeling; Engine parts; Features; Sample cases is. price coos 

A15 

« -ssg— k sssiar— I » sssar-" 1 *" — 

U nclassifi ed Unclassified Unclassified | 


NSN 7540-01 -280-5500 


§Umdwd Form 298 (R«v. 2-89) 

Pr—crtbbd by ANSI 8*. 238-19 
298-108 


